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NEXT I 
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220 IF A$<T OR A$>"9" GOTO 200 
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240 IF Z<9 GOTO 200 

300 ' KM 
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420 RETURN 
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350 IF X(I)=Y(J) THEN IF I=J THEN H=H+1 


ELSE B=B+1 


360 NEXT J: NEXT I 
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imxmxhtizs^tzt* 
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PUZ 



:bKFv2SEQIlHi>i>27 



-y ? * a. - 7'" ^ X (7)^* o fc J: 

nxi^o z(7)^*> v &$tm* 

WzLTLSx.tf^fiStyc'o 
TfJ# o o ^ - V ;u (D) <7>^li7!r 

**t& WlfrLtz^tZ\?>{zt>- 
v;^#ULT, *^— **— T* 
Ktfrf 0H$sS-t>-£)£^-5 b<n 
n vtffrfrZ £ Xitm L^frbL 

-t*'y^ + zL-7*«i;f;i 



10 ' 2D RUBIK 

2/3f DEFINT A-Z:A=BND(-TIME) 

30 SCREEN 

40 FOR 1=0 TO 2:F0R J=0 TO 2:P(I. J)=0:NE 

XT J: NEXT I 

100 ' J*7t'* 

110 INPUT "mi Jttf'JTjM 

120 print"*^ nnr 

130 FOR L=l TO M 
140 X=RND(1)*3:Y=X:W=RND(1)*2 
150 IF W=0 THEN Z=P(X,0) :P(X,0)=1-P(X. 2) 
:P(X. 2)=1-Z:P(X, 1)=1-P(X. 1) :G0T0 170 
160 Z=P(0. Y) :P(0. Y)=l-P(2. Y) :P(2. Y)=l-Z: 
P(1.Y)=1-P(1.Y) 
170 NEXT L 
200 ' HV 

210 SCREEN 5: SET PAGE 0.0: COLOR 15, 0,0: C 
LS 

220 FOR 1=0 TO 2:F0R J=0 TO 2 
230 LINE(34+I*64, 10+J*64)-(93+I*64. 69+J* 
64).5+P(I,J)*3,BF 
240 NEXT J: NEXT I 
250 X=0:Y=0:W=0 
260 GOSUB 1000 
300 ' My %-T 

310 XX=X:YY=Y:A=STICK(0):IF B=A THEN A=0 
ELSE B=A 
320 IF A=l THEN YY=(Y+2) MOD 3:W=1:G0T0 






330 IF A=5 THEN YY=(Y+1) MOD 3:WW=1 

400 
340 IF A=3 THEN XX=(X+1) MOD 3:WW=0 

400 
350 IF A=7 THEN XX=(X+2) MOD 3:WW=0 

400 
360 GOTO 500 



GOTO 
GOTO 
GOTO 




ADISE 



400 ' i-y* tyjy 

410 GOSUB 1000 

420 X=XX:Y=YY:W=WW: GOSUB 1000 

500 ' MiV 

510 IF STRIG(0)=0 GOTO 300 

520 BEEP 

530 IF W GOTO 700 

600 • mm WV 

610Z=P(X.0):P(X,0)=1-P(X.2):P(X.2)=1-Z: 

P(X.l)=l-P(X.l) 

620 FOR 1=0 TO 2 

630 LINE(34+X*64. 10+I*64)-(93+X*64. 69+1* 

64) . 5+P (X, I)*3, BF 

640 NEXT I 

650 GOTO 800 

700 ' H3*737 tW 

710 Z=P(0. Y) :P(0. Y)=l-P(2. Y) :P(2. Y)=l-Z: 

P(1.Y)=1-P(1.Y) 

720 FOR 1=0 TO 2 

730 LINE(34+I*64. 10+Y*64)-(93+I*64. 69+Y* 

64). 5+P(I. Y)*3. BF 

740 NEXT I 

800 ' mi iv,) 

810 Z=0:FOR 1=0 TO 2: FOR J=0 TO 2:Z=Z+P( 

I,J):NEXT J:NEXT I 

820 IF STRIG(0) GOTO 820 

830 IF Z GOTO 300 

900 ' KM 

910 OPEN "GRP:" AS #1:PSET(88. 200).0:PRI 

NT#1, "COMPLETED!" 

920 CLOSE 

930 IF INKEYSO"" GOTO 930 

940 A$=INPUT$(1) 

950 GOTO 30 

1000 ' i-n UW 

1010 IF f THEN LINE(32.8+Y*64)-(223,71+Y 

*64). 15. B.XOR: RETURN 

1020 LINE(32+X*64. 8)-(95+X*64. 199). 15. B. 

XOR: RETURN 



j wtts&fmoffi 



hx9>?— K##&T\ UNlXtt 
tfCtts Orft h?4 >X b -JUS 

izwmizmmi &%?> A,?mtz± ) 
<D7.*s> y >y<D&$ -fro) *- *#< 
R^^n-So cc(zA~Z(7)fi% 



(t ttiiX'izmm^mxrum 

z\t a s *r *l£ii50fiJ£<7V{- 
MBfStt Lfc^-AT'fc*4. 



fry** 7.?T-te—7'/u— KT*# 



t^-fXizst&sura^-So =§?■ 
IS 1 HS„ £^-^r*B:fi-Ufc, 
t y hS7p-©7n^=7ArJS 
A/cut e>* 5iaa*r^iUTo 

.feaftlSSIIcttofco 
1234 0H1B 



5167 0H8B 

8519 0H1B 

7620 0H2B 

6053 1H8B 

w£u&i\»£i& m^izmom 
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3 






-ex* # jyntf v \ / -r w jf * t n 



*o< 'J^L^/LTLS 0(7)7^ 

^-To(5* s cofe(z^Tc ttfX'Z 
5*\ 'J^^RSI<7X1lIZ*#uR 



10 " The tower of HANOI 


),0:PRINT#1," "; 


20 INPUT "4W vW A(1-9)";M 


370 LINE(16, 16)-(47, 23). 8. BF, XOR 


30 IF M<1 OR M>9 THEN BEEP: GOTO 20 


400 ' "TO" INPUT 


40 SCREEN 5 -.COLOR 15.0.0:CLS 


410 LINEU6, 32)-(47, 39), 8, BF, XOR 


50 OPEN" grp:" FOR OUTPUT AS #1 


420 A$=INPUT$(1) 


100 ' Mf to UW 


430 IF A$<"1" OR A$>"3" GOTO 500 


110 FOR 1=0 TO 2:LINE(44+I*80,64)-(51+I* 


440 T=VAL(A$)-1:IF T=F GOTO 500 


80,159).15.BF:NEXT I 


450 A=VAL(RIGHT$(A$(F).D) 


120 LINE (0.159)-(255.159),15 


460 IF LEN(A$(T))=0 GOTO 600 


130 A$(0)="":FOR I=M TO 1 STEP -1:A$(0)= 


470 IF VAL(RIGHT$(A$(T),1))>A GOTO 600 


A$(0)+CHR$(48+I):NEXT I 


500 " "FR0M"t7 Witt 


140 A$(1)="":A$(2)="" 


510 BEEP:LINE(16. 32)-(47. 39), 8. BF. XOR 


150 FOR 1=1 TO M:A=VAL(MID$(A$(0). I.D) 


520 GOTO 300 


160 LINE(44-A*4, 160-8*I)-(51+A*4, 166-8*1 


600" W/ O'-) 


).8.BF 


610 PSET(56.32),0:PRINT#1.A$; 


170 NEXT I 


620 I=LEN(A$(F)) 


180 PSET(36.192).0:PRINT#1."[1] [2 


630 LINE(44+80*F-A*4, 160-8*I)-(51+80*F+A 


] [3]" 


*4. 166-8*1), 0.BF 


190 PSET(16, 16).0:PRINT#1."FROM:" 


640 LINE(44+80*F, 160-8*I)-(51+80*F, 166-8 


200 PSET(16.32),0:PRINT#1," TO:" 


♦ D.15.BF 


300 ' "FROM" INPUT 


650 A$=RIGHT$(A$(F). 1):A$(F)=LEFT$(A$(F) 


310 LINE(16, 16)-(47, 23), 8. BF, XOR 


, LEN(A$(F))-1) :A$(T)=A$(T)+A$ 


320 A$=INPUT$(1) 


660 I=LEN(A$(T)) 


330 IF A$<"1" OR A$>"3" GOTO 320 


670 LINE(44+80*T-A*4, 160-8*I)-(51+80*T+A 


340 F=VAL(A$)-1 


♦4.166-8*1), 8. BF 


350 IF LEN(A$(F))=0 THEN BEEP: GOTO 320 


680 LINEU6, 32)-(47. 39), 8, BF. XOR 


360 PSET(56.16),0:PRINT#1,A$;:PSET(56,32 


690 GOTO 300 



L.CDWJ 9 x >y ? IZ& -3 X I v& I n 
(DX\ g^T^JBJrLTfco 7^T<7) 

*> 'J 7? £ JLt>1riM£t£A.X Ztte 
%$MM=* ig£*o< imLfr 

Wrfr&zttfibtir^x^o z 
<7)zfn??i±ximfcLXte^1- 

MX. zmhtf'S^iz & % t>\ift a 




x*>y— p&bat*,, HtzG&m&h , mw£.^x^< ^^yp^^A^ft^^DATA • i*-x*7-r K-t**>tt*f„ zc7>£ 

(*-v)u*—xtt\}*&mLx izmtntfmtfo !T..^.!^!?.!Mt.. ...„. • & nisiz^-c**^ itoz 

]w0 / L" J l° -7 V% I I ,. ^iSip (rtzt^So. *fci5/OOu 

J^S^^I I / \#^N/U Wcl«7|Vfffl XXL ZBWPtMZWfiXtm 

fc£**7-f K/<50l/ 5 x 5<7)V7s@(zte x A~Y £ fcutfifx z<n^X)vxi,t^ 'J 7 
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«AD«*Wlttl*5: 



PUZzAAr 



ADIfE 



T©^ "b "W© fc -* £& »J 

*n-s-<^'bfE^€>fo(7)T\ yp 

? 7 AT1;fc»3t7F(i« L tz tt 
ft £', lift* tt-#A- # ftUti * fc°- 

T^n«bcfflsnTu?>*iiAu 
w tutwctirt* t l » a ©** 1 1 

bt<rm£?£<F>tz t°-:*©*# 
<*£*$%* *>#©T\ #*Kf*r 7 





iftfcx 9Uzmj\m?z.£irX-£%<nlrl 

fc*¥T t -. WV£ Zfayf ##U 
#fc\ Xp ^ A©|f{£©DATA 



!Sor^p^5AUr^d;5o r 

&lM+£» §!©»«£ Ur^U A, 

r<fc**t^o ris, Pom, 

■yu^zyL.7imhjC:l\tit.Z.^ 
;*©<fc5&A°^->tftHfco 

nan 
□□□ 
□□D 




&&, z©-y-A©»£s ff-r 

*flff©ESIiHJS&l\CDZ\ -?■© 

■r^r (Dmrn^m^mt z. tz i* u 
^Krt.ij-od-sr'To 

»st*©«*ajBi«B=Ey ^7 
ci'*— yc«orusi+<*f, ^f 

S^AMito&UAl;*, T'/l/ZfU 
XA(»*73)«IJ-C : feSLM8L\r 



v&* 




*JH-?-f2>2Z&-12. 



• •••••••••• 



• •••••••• 




m<r>&cimizm&tz. 

*2D)U-£'yfUzn 



10 SHOOTING STAR 


350 GOTO 500 


20 DEFINT A-Z:A=RND(-TIME) 


400 LINE(32+XX*64. 8+YY*64)-(95+XX*64. 71+ 


30 DIM P(2.2).D(8.8) 


YY*64).0,B 


10 FOR 1=0 TO 8:F0R J=0 TO 8:READ D(I.J) 


410 LINE(32+X*64,8+Y*64)-(95+X*64. 71+Y*6 


10 NEXT J: NEXT I 


4). 15, B 


60 SCREEN 


500 IF STRIG(0)=0 GOTO 300 


70 FOR 1=0 TO 2:F0R J=0 TO 2:P(I. J)=0:NE 


510 BEEP 


XT J: NEXT I 


520 K=Y*3+X:Z=0 


100 " itrt** 


530 FOR 1=0 TO 2:F0R J=0 TO 2:P(I.J)=P(I 


110 INPUT "irti M7t'Jl";M 


,J) XOR D(K,J*3+I) 


120 PRINT"f^F ?*f*r 


540 LINE(34+I*64. 10+J*64)-(93+I*64, 69+J* 


130 FOR L=l TO M 


64),5+P(I,J)*3,BF 


140 K=RND(1)*9 


550 Z=Z+P(I.J) 


150 FOR 1=0 TO 2:F0R J=0 TO 2:P(I.J)=P(I 


560 NEXT J: NEXT I 


,J) XOR D(K.J*3+I) 


570 IF STRIG(0) GOTO 570 


160 NEXT J: NEXT I 


580 IF Z GOTO 300 


170 NEXT L 


600 OPEN "GRP:" AS #1:PSET(88. 200).0:PRI 


200 " My 


NT#1. "COMPLETED!" 


210 SCREEN 5:SET PAGE 0,0:COLOR 15.0.0-.C 


610 CLOSE 


LS 


620 IF INKEYSO"" GOTO 620 


220 FOR 1=0 TO 2: FOR J=0 TO 2 


630 A$=INPUT$(1) 


230 LINE(34+I*64, 10+J*64)-(93+I*64. 69+J* 


640 GOTO 60 


64),5+P(I,J)*3.BF 


1000 ' AVf> 7 -9 


240 NEXT J: NEXT I 


1010 DATA 1.1,0,1.1.0,0.0.0 


250 X=0:Y=0 


1020 DATA 1.1.1.0.0.0.0,0,0 


260 LINE(32+X*64. 8+Y*64)-(95+X*64, 71+Y*6 


1030 DATA 0.1,1,0.1.1.0.0.0 


4).15,B 


1040 DATA 1.0.0.1.0,0.1,0,0 


300 XX=X:YY=Y:A=STICK(0):IF B=A THEN A=0 


1050 DATA 0.1.0.1.1,1.0.1.0 


ELSE B=A 


1060 DATA 0,0,1,0.0.1.0.0.1 


310 IF A=l THEN Y=(Y+2) MOD 3:G0T0 400 


1070 DATA 0.0.0.1.1,0.1.1,0 


320 IF A=5 THEN Y=(Y+1) MOD 3: GOTO 400 




330 IF A=3 THEN X=(X+1) MOD 3:G0T0 400 


1090 DATA 0.0.0.0.1.1.0.1.1 


340 IF A=7 THEN X=(X+2) MOD 3: GOTO 400 





!M©9l®©v*@£ N ±*m 

iz-ftitffEj&ti^^xnteZD^- 
?WHt* #^:©-7'p-v^©fe 

mnt^^ma^t^m^ £££> 

XMz *<&%!%$:&-?£. *£ 

tz a s-r±js(ix 

* BD B * B DB * 

BBD DDD GBB 

nan ana 

DID DDB 

b * b an * 

DID DDB 

DDD DDD DDD 
BBD DDD DBB 
* BD B * B DB * 



DDD 

BDD 
* DD 

BDD 
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SLJ: % ®@Uo(£U(CBSAVE 
^5tT-tz-7*$ ftfc fc(7rC'&fttf. 
SCREENS 7 S 8, \2<DZftX'b± 
3t:5*c(MSX2c7) AlS12litex. & ^ 

it arte )„ 

*wMznfmt%im^x < 5 

<7>T\ ##^»«rA*f*. *G 

□- K-r«iiw^^ U->^E- K 
St-hia "7?--nu££-A7TtSo 

fi*ht£fr-otzM$^ 77^14* 
A2rT££::*>-CU?->tclt# 

&fc\ iftcioTfini^niiiro 



SfcSSFtHCOb 



10 ' x-a'-x^Ka'x'V 
20 DEFINT A-Z:A=RND(-TIME) 
30 INPUrHD/ 7*y*7^(2.4.8.16.32.64):":X 
40 IF INSTR(" 2/ 4/ 8/ 16/ 32/ 64/".STR$ 
(X)+"/")=0 GOTO 30 

50 INPUT" HI 7' 7*7X9(2.3.4.6,8. 12. 16. 24. 
32. 48) :";Y 

60 IF INSTR(" 2/ 3/ 4/ 6/ 8/ 12/ 16/ 24/ 
32/ 48/".STR$(Y)+7")=0 GOTO 50 
70 PX=256/X:PY=192A ' PX,PY:lf-X/ MX 
80 DIM MX(X-1.Y-1).MY(X-1.Y-1) 
90 FOR 1=0 TO X-1:F0R J=0 TO Y-1:MX(I. J) 
=I:MY(I,J)=J:NEXT J:NEXT I 
100 INPUT" XM-y t-K(5,7.8,12):";M 
110 IF INSTR(" 5/ 7/ 8/ 12/". STBS 00+"/" 
)=0 GOTO 100 

120 LINE INPUT" Q-KX* 7rfM:":F$ 
130 IF F$="" THEN GOSUB 900: GOTO 200 
140 ON ERROR GOTO 1000 
150 SCREEN M:SET PAGE 1.1 
160 BLOAD F$. S: IF M<8 THEN C0L0R=REST0RE 
170 ON ERROR GOTO 
200 ' 7t** 
210 FOR 1=1 TO 100 

220 A=RND(1)*X:B=RND(1)*Y:C=RND(1)*X:D=R 
ND(1)*Y 

230 IF A=C AND B=D GOTO 220 
240 E=MX(A. B) :MX(A. B)=MX(C. D) :MX(C. D)=E 
250 E=MY(A, B) :MY(A. B)=MY(C. D) :MY(C. D)=E 
260 NEXT I 
300 ' UW 
310 SET PAGE 0.0 

320 FOR 1=0 TO X-1:F0R J=0 TO Y-l 
330 IF MX(I.J)=X-1 AND MY(I. J)=Y-1 THEN 
CX=I:CY=J:G0T0 350 



340 COPY(MX(I,J)*PX,MY(I.J)*PY)-(MX(I.J) 

*PX+PX-l.MY(I.J)*PY+PY-l).l TO (I*PX,J*P 

Y) 

350 NEXT J: NEXT I 

400 ' Hn-r 

410 A=STICK(0):DX=CX:DY=CY 

420 IF A=l AND CY<Y-1 THEN CY=CY+1:G0T0 

500 

430 IF A=5 AND CY>0 THEN CY=CY-1:G0T0 50 



440 IF A=7 AND CX<X-1 THEN CX=CX+1:G0T0 

500 

450 IF A=3 AND CX>0 THEN CX=CX-1:G0T0 50 



460 GOTO 400 

500 A=MX(DX. DY) :MX(DX. DY)=MX(CX. CY) :MX(C 

X,CY)=A 

510 A=MY(DX. DY) :MY(QX, DY)=MY(CX. CY) :MY(C 

X.CY)=A 

5 20 COPY (MX (DX. DY) *PX. MY (DX. DY) *PY) - (MX ( 

DX. DY) +PX+PX-1, MY (DX. DY) *PY+PY-1) . 1 TO ( 

DX*PX, DY*PY) 

530 LINE(CX*PX, CY*PY)-(CX*PX+PX-1. CY*PY+ 

PY-D.0.BF 

540 GOTO 400 

900 ' 15 77* 

910 SCREEN M:SET PAGE 1.1:CLS 

920 IF M>=8 THEN CC=256 ELSE CC=16 

930 IF M=7 THEN XX=512 ELSE XX=256 

940 FOR 1=1 TO 100 

950 CIRCLE (RND(1)*XX.RND(1)*192).RND(1) 

*50+10.RND(l)*CC 

960 NEXT 

970 LINE(0,0)-(XX-1. 191). 15. B 

980 RETURN 

1000 SCREEN 0:PRINT"n-K i7-!":BEEP:RESU 

ME 120 





=Jt*\j—5- 









i@gy x Jf-l'— 9 —(D ~fn ■? 

7AC,iT(7)U^ K&MERGEL 
/cb^fcit^-To 3>fc°o.— *— (7) 



10 • mw y / i*h- 

40 INPUT "LEVEL(1:EASY-5:HARD):";V 
50 IF V<1 OR V>5 GOTO 30 



70 



1110 A$=MID$(STR$(A).2) 

1120 FOR 1=1 TO LEN(A$):IF RND(1)*6<V TH 

EN MID$(A$. I)="n" 

1125 NEXT I 




mr r<m*. wz * w * & y l 

TS^tlJ LAN, 7^-^^fff 
m^MizL*>&&^MizL?>, 

«^wi;hv ttzs vtzh 

flBWQdUHL ftzhmu. <MHL 
m < 2 oJ^Lbfe 5 MK & Waft* 

£T-# 5 «t -5 c L fcc i^^v 1 & 

^^)C7)g$tzLT<^T+a 
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puz: 



RADIIE 



WEJiJ&B&raWr 



+ 



i<7)+(z x TCf-i-t 

5ij&±s&AnT l i 5/<xjkt*o 

Aft7cUffc££, 1~9(7)+-T- 



It a:; flKSttSISffjcail+Suu 

ftTL£-5c£ fcjtfU =i>tf 
%><nx\ ffi^lWlC^^t^Bi 



B 



















































A 













IM+^SBJRa&S^n^ASflE 

r*, nff-rscDic-rc<BisiA^ 

fcd:^.ISv l^T©cfc5lcJSfT± 
tolc-rSil97aOC/d:So 
B 



ottbr, A«S,<£(£T)fr6B 

»)S(a±)*r»KiUfcL^ mm 

gggir^U-rSci: Ur» 25ESOO 
€<qla Bffrafritfci:: U 200S 





X 


















































T 



10 • mi vm 

140 L I NE (PX+ J*l 6-4+ 1 *8. PY+I*16-4)-(PX+J* 

16+11+1*8, PY+M6+11). 14. BF 

210 PUT SPRITE 0, (PX+CX*16+4+CY*8. PY+CY* 

16+3), 8,0 

520 CIRCLE (PX+CX*16+4+CY*8, PY+CY*16+4), 6 

,12 

615 I=MX-CX:J=MY-CY:IF (1=2 AND J=-2) OR 

(I =-2 AND J=2) GOTO 640 
700 CIRCLE (PX+MX*16+4+MY*8. PY+MY*16+4), 6 
.14 

1010 CIRCLE (PX+J*16+4+I*8. PY+I*16+4), 4, 5 
:PAINT(PX+J*16+4+I*8, PY+I*16+4), 5. 5 
1020 CIRCLE (PX+J*16+5+I*8. PY+I*16+3), 3, 7 
:PAINT(PX+J*16+4+I*8. PY+I+16+4). 7. 7 
1030 PSET(PX+J*16+6+I*8, PY+I*16+2), 15 



fcB£DmU\EMJ l JT-j 



1110 LINE(PX+J*16+I*8. PY+I*16)-(PX+J*16+ 

8+1*8. PY+I*16+8), 14, BF 

1120 CIRCLE(PX+J*16+4+I*8,PY+I*16+4),4.0 

.5,3 

2020 DATA 0.0,0,1, 



2030 DATA 
2040 DATA J 
2050 DATA 
2060 DATA 
2070 DATA -1 



1.1.1,1. 

f. 1. 1. 1. 
1.1.1.1. 
0.1. 



2090 • 



ai3A7«3"; iX)U717 




totit.*%m&b£iz 

Xlt *i- >/\'-7V-7 "t£ t'(D 

©*> a — h -fu ?? J±XWt L tz 
b<ncn s \) *—?mX'hfo% 

i->xvm&zmy?mx < a 

ut\ tmtet'it— wr^o 9x 

9«77|«i N $t fLT3x 
3 (7>*t S^T'E^ >b ft/; V 7. g (Z 

i~9©f83^ muimqra 



hu^xiizxnxi^< 
^*\ntz^mmiz&mu 1 

~9©*-Ti&££Aft3 An 
ft'bti/dX&^Ti^o 

sskllm:: &P&& u sis 
L^i^SofcA«x y&y<—v 
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T 






li£*>T'«(tS<"?;Ou 






faiz&mx*i*%>h<nh&%>o tz., 

X\ WnW s rT<T)~?u7 : 7l>.ik 

BfcitLT, *=^V'Jf7^t§ 

?rP-KLT s ^(7)U7hC0^Dt 
Jgr-r^/flto iCi^T, M®^" 

i ^T-f^fiSt-r & ;: t fc t§ * (f 

— ^ * < "+"+-^ iZieK? tlT £<7)T 
m?rO(tT+i) 

*> «t o t *— V)uni$&)tzigfii 
v>LTt3c miz^-SAti, is- 

5^' 6 2nacw?# 5(7)T\ 

i\ xb, tntdu-wwygsm* 
mz.z<nx\ mi:±££(7yMffix 
liML < *£%>' \ x'f-'o ffliS L fzM 

fVT-X-gZtMi, 
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P\JZZLEB%\Z&z>1z£> 

3<7);fa 7P7^^|(zA'Jm^ 
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r MUSICWORKSHOPj MUl^ 



*8l^r8&Fr<7>^fc0 BASICT' 
PI#/j:^#7 p ^7 A ( 1 ~ 4 /J* 



T f -^^JSHT f -^(|S|i: < 1 

fepJf, ft£* m «IS#^ 

i>i-)^%±n%" tx-m^x< 



^©Mte^ ^ 1 3300© 

3: To ^LT, 1$3ffFp n p<7)#£» 
'92 % 5 E -§i&Ji© Z<7) 3— ^T— 

£fc#anLT<*f3i.vtao 



M3'S£^1J^30B<^> 



C C 3 <* 3 



E CD 




£ ft 



--•5©3>~r;* hT'li, *fc 
^©f^-o^tt^SLTl^T. 

A ~ a— V v9Wft<n~\-tz-> t 

ffcB>ii basic Musical £**> 6 $• 



V-bS.n.-VvO^ 



MuSICA(7)ii^-(i'^-f^fe 
Wftt LTL*»#5000R-ft- 



=107-24 

!BRS5iESfllU6-11-1 
*U-I?SlflUt^l/ 

MSX^#2^»8*8B 
££3©H>7-3.h0R 



^5X^571 TRY TO STAR 

*E3ttS©*"C-»g#J»U©#;:©ffio K-5 
A©S#»-3rnr* y/'Jfc«fc<, 7olq]MlCtt$? 
S«ftSr*o 35ttt±ft:©S«C=b5'>US<b 



10 CLEAR10000:_MUSIC(1.0, 1, I, I. I, I. 1) :_P 

ITCH (440) 

20 SOUND6. 0:SOUND7. &B 101 00011 

30 DIMA*(15) :FORI=4T015:READA$:A*(I) =VAL 

("&H"+A$) :NEXT:_VOICECOPY(A*. §63) 

40 DATA CI 8, E, 0, 

50 DATA 1521, 6392, 40. 

60 DATA 62, 574. 70, 

900 DEFSTRA-T 

950 R4="R4":R6="R16":R8="R8" 

1000 ' 

1110 AA="©63V1204L8G5 R4FR4E4. FR4E4E2R4E 

-R4D4. E-R4D&D2" 

1 120 AB="R4FR4E4. FR4E&E2R4E-R4DR8<B-&B-1 

1 130 AC="863V1 10605EDCG4. F4E4DCR8CDED4. < 

B-&B-1. " 

1 140 AD="05EDCG4. F4E4DCR8CG>C<B-4. >C4. Dl 

<CD" 

1 150 AE="E4. FR8GR8D&D2CR8DR8E4. FR8GR8>C& 

C2<BGR8D" 

1 160 AF="E4. FR8GR8D&D2CR8DR8E-DCE-4<A->C 

E-FE-DF4<B->DF" 

2000 ' 

2110 BA="@63VI104L8Q5 R4CR4C4. CR4C&C2<R4 

B-R4B-4. B-R4B-&B-2>" 

21 20 BB="R4CR4C4. CR4C&C2<R4B-R4B-R8F4F1 " 

2130 BC="@63V505Q8L1C4C<B-4B-" 

2150 BE="§24V 906L8Q7 C4. <B>R8CR8<B4B2AR 

8BR8>C4. <BR8>CR8<B4B2BG" 

2160 BF="06L8C4. <B>R8CR8<B&B2AR8BR8>C4. D 

4, E-4D4. E-4. F4" 

3000 ' 

3110 CA="@24V1 105L8Q8 R4CR4C4. CR4C4C2<R4 

B-R4B-4. B-R4B-4B-2>" 

3120 CB="R4CR4C4. CR4C4C2<R4B-R4B-R8F4F1" 

3130 CC="e63V504L108G4GF4F" 

3150 CE="§24V10O5L8Q7 A4. GR8AR8G4G2FR8GR 



8A4. GR8AR8G4G2GD" 

3160 CF = "A4. GR8AR8G&G2FR8GR8A-4. B-4. >C4< 

B-4. >C4. D4" 

4000 

4110 DA="624V10O5L8 R4FR4E4. FR4E&E2R4E-R 

4D4. E-R4D4D2" 

4120 DB="R4FR4E4. FR4E4E2R4E-R4DR8<B-4B- 1 

4130 DC="663V704L1C4C<B-4B-" 

4150 DE="V8A2. . G1F1G1 " 

4160 DF = "A2. . G1&G8V9Q6A-4. A-4. A-4B-4. B-4 

. B-4" 

5000 ' 

5010 E0="§16L8Q8" 

51 10 EA="V606L8G>CE<G>CF<G>CE<G>CF<OCE< 

G FB->D<FB->E-<FB->D<FB->E-<FB->D<F" 

5120 EB="G>CE<G>CF<G>CE<G>CF<C>CE<G FB-> 

D<FB->E-<FB- L24DD+EFF+G G+AA+B>CC+ DD+E 

FF+G G+AA+B>CC+06L16" 

5130 EC="CEG>C<CEG>C<CEG>C<CEG>C<" :EC=EC 

+EC : ED=EC : EC=EC+"<B->DFB-<B->DFB-<B->DFB 

-<8->DFB-«B->DFB-DFB->D<FB->DF<B->DFB-" 

5140 ED=ED+"EG>CE<EG>CE<EG>CE<EG>CE <EG> 

CE<EG>CE<EG>CE<EG>CE<L8' 

5150 EE="V 8ACEA4CEG4<G>DG4<B>DF4<A>CF4< 

A>CG4<B>DG4<B>DA" 

51 60 EF="ACEA4CAG4<B>DG4<B>DG<A-E-CA-4<L 

16A->CE-A->CE-<B-8F8D8B-4<B->DFB->DF" 

6000 ' 

6100 F0="§33V10O3O5L8" 

6110 FA="CCCCCCCCCC<B->C4CCC":FA=FA+FA 

6120 FB="CCCCCCCCCC<B->C4CCC CCCCCCCCCC< 

B->C4CCC" 

61 30 FC="CCCCCCCCCCCCCCCC" : FD=FC: FC=FC+" 

CCCCCCCCCC<B - >C 4CCC " 

61 40 FD=FD+"CCCCCCCCB-AGF4E-D<8-" 

6150 FE="AAAAAAAG4GGGGGGF4FFFFFFG4GGGGGA 

A" 

6160 FF="AAAAAAAG4GGGGGGF4A-A->E-4<A->E- 

<A-B-B-B->F4<B->F<B->Y39. 1Y40. 1" 

7000 " 

7010 R0="Y54, 0Y55. 1Y56. 1 6Y23. 80Y39. 1Y24, 

110Y40, 1" 

7110 RA="B4SM4B8B8SM4B4SM8B4B8SM4 B4SM4B 

8B8SM4B4SM8B4B8SM8SM8 " 

7120 RB="B4SM4B8B8SM4B4SM8B4B8SM4 B8B8S8 

B8B8SM8B8SM8Y56, 0Y23. 86Y24. 1 16SM16SM16SM 

8Y23, 34Y24, 64SM16SM1 6SM8Y23. 230Y39, 0Y24, 

6SM16SM16SM8Y23. 194Y24, 224Y40. 0SM16SM16S 

M16SM16Y23. 80Y39, 1Y40, 1Y56, 16" 

7130 RC="y24. 1 10B4SM4B8B8SM4B4SM8B4B8SM4 



":RD=RC:RC=RC+RC 

7140 RD=RD+"B4SM4B8B8SM4B8SM8SM8B4SM8SM8 

SM8" 

7150 RE="B4SM8B4B8SM8B8R4SM8B4B8SM4 B4SM 

8B4B8SM8B8R4SM8B4B8SM4" 

7160 RF= " B4SM8B4BM8SM8B8R4SM8B4BM8SM4B8B 

8SM8B8B8SM8B8SM8SM8B8B8R4Y56, 0Y23. 86Y24. 

I16SMI6SM16Y23. 34Y24. 64SM16SM1 6Y23. 230Y3 

9, 0Y24, 6SM1 6SM1 6Y56. 1 6Y23. 80" 

8000 ' 

8100 P0="L32":S6="V10CVC":S8=S6+"V6CC":S 

4=S8+R8:S2=R4+S4 

8110 PA=S2+S2+S2+S2+S2+S2+S2+R4+S8+S6 

81 20 PB=S2+S2+S2+S2+S2+R8+S8+R8+S8 

81 30 PC=S2+S2+S2+S2+S2+S2+S2+R4+S4 

81 40 PD=S2+S2+S2+S2+S2+S2+R8+S8+S8+R4+S8 

+S8+S6 

8150 PE=S2+S2+S2+S2:PE=PE+PE 

81 60 PF=S2+S2+S2+S2+S2+R8+S8+R8+S8+S8 

9000 " 

9010 H0="L32":H6="V7CV2C":H8=H6+R6:H4="R 

8"+H8 

9100 H0="L32":H6="VCV4C":H8=H6+R6:H4="R8 

"+H8 

91 10 HA=H4+H4+R4+H4+H4+R4+H8+R4+H8+H4+H4 

+R4+H4+H4+R4+H8 

9120 HB=H4+H4+R4+H4+H4+R4+H8+R4+H8 

9130 HC=HA+R4+H8 

9140 HD=H4+H4+R4+H4+H4+R4+H8+R4+H8+H4+H4 

+R4+H4+"R2"+H8 

9150 HE=H4 + R4+H8+"R4. "+H8+H8+R4+H8+R4+H8 

+H4 + R4+H8+"R4. "+H8+H8+R4+H8+R4+H8 

9160 HF=H4 + R4+H8+"R4. "+H8+H8+R4+H8+R4+H8 

+ "R1R4. V12CV1 1CV10CV9CVCV7CV6CV5C" 

10000 

10130 GC="V6L105GGFF" 

10150 GE="V7E2. . D1C1D1" :GF='E2. . D1D8E-4R 

8E-4R8E-8R8F4R8F4R8F8R8" 

20000 T="T225":PLAY #2, T. T. T. T. T, T. T. T. T 

,T 

20100 PLAY #2. "","".""."". E0. F0, R0. P0. H0 

201 1 PLAY #2, AA, BA, CA. DA, EA, FA. RA, PA, HA 

201 20 PLAY #2, AB, BB, CB. DB, EB. FB. RB. PB. HB 

201 30 PLAY #2, AC. BC. CC. DC, EC. FC. RC. PC, HC 

GC 
201 40 PLAY #2. AD, BC. CC. DC. ED. FD. RD. PD. HD 
.GC 

201 50 PLAY #2, AE, BE. CE. DE. EE. FE. RE. PE. HE 
.GE 

201 60 PLAY #2. AF. BF, CF. DF. EF, FF. RF. PF. HF 
■ GF 
20170 GOTO20100 



tf—kS.iL—i'vyfflF 1 } musical 



•^f— y^FEENA 

5.7.[szi\z>mmtfft&&57rto atm 



FM1 =T. A, A0. Al. A2 

FM2 =T. B. B0. B1 . B2 

FM3 =T. C. C0, CI 

FM4 =T, D. A0. Al. A2 

FM5 =T. E, B0. B1, BZ. B2 
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FM6 = T. F. C0. CI 
FMR = 

FM7 =T. G. A0, Al, A2 
FM8 =T. H, B0. Bl. BZ, B2 
FM9 = T. I. C0. CI 
PSG1=T. J, J0, Jl. J2, J3. J4 
PSG2=T, K. K0. Jl. J2. K3. K4 
PSG3=T. L, L0, LI/28 , L2 
SCC1 = 
SCC2= 
SCC3= 
SCC4= 
SCC 5= 

T=T 70QM5O5 
A=§63V1 1L 4S1 
B=863V10L 1S1 
C=863V10L 1S1 
D=863V 8L 4S1Z 1 R32 
E=863V 8L IS1Z 1 R32 
F=863V 8L IS1Z 1 R32 
G=863V 6L 4S1Z52R16. 
H=863V 6L IS1Z52RI6. 
I=863V 6L 1S1Z52R16. 
J=§10V 1L24 
K=810V 1L24ZI 
L=813V 8L 208 
:PART A (Cord & Bass) 
A0=BAA-G-AA-G-E 
BAA-G-AA-G-EL2 
EE-D-E- 

EE-D-E-03664L1 
A1=EE EEFFEEFF 

EE EE665 
A2=FFEEFFE(E)E2. R4 
;PART B (Cord & Violin) 
BZ=V10 
B0=EEEEL2 
(G-G-G-G- 
G-G-G-)G-60<L16 
B1=R4DGR(G2)G R4GGR (G2) G 
R4GGR(G2)G R4GGR (G2) G 
R4GGR(G2)G R4GGR (G2) G 
R4GGR (G2) G R4GGR (G2) G 
R4GGR(G2)G R4GGR (G2) G 
F+1F+1F+1F+I8 207LI6VI1 
B2=EDE4. <A8B8 >C8D8 EDE4. <A8B8 >C8E8 
DCD4. <G8A8B8>C8 DCD4. <G8A8B8>D8 
EDE4. <A8B8 >C8D8 EDE4. <A8B8 >C8E8 
DCD4. G8A8B8>C8 D4<B4G4D2. R2 
:PART C (Cord) 
C0=D-CD-CL2< 

(BB8BBBB)B80L16 
C1=R4RDR(D2)D R4DDR (D2) D 
R4DDR (D2) D R4DDR (D2) D 
R4CCR(C2)C R4CCR(C2)C 
R4DDR (D2) D R4DDR (D2) D 
R4CCR(C2)C R4CCR(C2)C< 
B1B1B1B1 
.-PART J (PSG-A) 

J0=R1R1R4 (E8) EV2EV3EV4EV5EV6E 
V7EVEV9E VE2R101V1 
RIRIB V2BV3BV4BV5BV6BV7B12. 
B1R2. R8 
Rl. 05611 VI0L 16 

J1=F+EF+BF+2E4 F+EF+BF+2D4 

E4A2. Rl 

F+EF+BF+2E4 F+EF+BF+2D4 

E4<A2>C4E4<A2>D4<B 1 

R1R1R1L1606V 
J2=EC<AF >EC<AF >EC<AF >EC<AF > 

EC<AF >EC<AF >EC<AF >ED<AF > 

D <BGE>D <BGE>D <BGE>D <BGE> 

D <BGE>D <BGE>D <BGE>D <BGE> 

J3=EC<AF >EC<AF >EC<AF >EC<AF > 
EC<AF >EC<AF >EC<AF >ED<AF > 
D <BGE>D <BGE>D <BGE>D <BGE> 

J4=812VG4D4<B4G2. R2 

:PART K (PSG-B) 

K0=R 1 R I R4 (E8) EV2EV3EV4EV5EV6E 
V7EVEV9E VE2R102V1 
Rl R 1 BV2BV3BV4BV5BV6B 
V7BV8B12B1R2. R8 
Rl. 05611V9L16R32 

K3=EC<AF >EC<AF >EC<AF >EC<AF > 
EC<AF >EC<AF >EC<AF >ED<AF > 
D <BGE>D <BGE>D <BGE>D <BGE32>Z0 

K4=8I2V8B4G4D4<B2. R2 



;PART L (PSG-Noise) 
L0=R1R1R1R1 
R1R1R1R1 
L1=A 

1.2=068 1 1 L 1 6V9R8CDE4R8CDEDCD 
R8CDE4R8CDEDCD 
<R8B>CD4 R8<B>CDC<B>C 
R8BBGGEEGGEED<BGE> 
R8CDE4R8CDEDCD 
R8CDE4R8CDEDCD 
<R8B>CD4R8<B>CDC<B>C> 
812VD4<B4G4D2. R1R4 



;- ( FEENA ] MUSIC 


from Ys 


- 


:- (C) FALCOM 




- 


: Arranged by 


T. MURAI - 




m^-ffi^ *i 
















<FM VOICE No. 63> 








MD 25-4- 1- 1- 13- 6- 3' 


2- 1 


0-off-off 


off 


CR 1- 1-11- S- 1- 


5-0 


0-off-off 


off 


<FM VOICE No. 64> 








MD 18-5- 1 • 1-15- 8- 1 • 


0-1 


0-off-off 


off 


CR 1 • 1 • 1 3 ■ 3- 2- 


4- 1 


0-off-off 


off 


<FM VOICE No. 65> 








MD 18-5- 1- 1-11- 3- 3- 


4- 1 


0-off-off 


off 


CR 1- 1-13- 9- 2- 


2- 1 


0-off-off 


off 


<PSG VOICE No. 10> 








32-32- 15- 0-on -off -0 








<PSG VOICE No. 12> 








28- 4-11- 0-on -off-0 








<PSG VOICE No. 13> 








32- 8- 7- 1- on -on -0 









v— A^a— SAy-^gBFj 1 musicawje 



*"f — y^See You Again 

by KANON oa*7?^A 
©fiB»r5*<s§«sx.r5©tfEVo in© 

FM 1 = T. V 1 . 86. 06, A 1 /2, 863. 05, A2, 05. 84 

. A3/2, 863. 04, A4, 84. 05. A5. A6 

FM2 = T, V2, Z1, 86. 06. Al/2, 863, 05. A2. 05, 84 

. A3/2. 863. 04. A4. 84, 05. A5. A7 

FM3 = T, V 1 , 86, 06, C I /2, 84, 06, C2. 05. C3/ 

2, 80, 06. C4/ 1 2. C5/4. C4/ 1 2, C5/4. C4/ 1 2. C5/4 

. C4/12. C5/4, C4/8, C6/8 

FM4 = T, V2. Z1.86, 06, CI/2, 84, 06, C2. 05. C3/ 

2, 80, 06. C4/12. C5/4. C4/12. C5/4. C4/12, C5/4 

. C4/ ! 2. C5/4, C4/8. C6/7, C7 

FM5 = T, VI, 86, 05. D1/2, R1/16, 05. 84. 02/ 
2 

FM6 = T. V3. 812. 03, B1/7, B2. B1/7. B2. B1/7. B 

2, B1/8. B3, B4/2. B5/4, B6 

FMR = T. VZ. El/7. E2. El/7. E2. El/7. E2. El/6, 

E3, E4/7. E5, E4/7. E6. E7/31. E8. E9/17. E10 

FM7 = 

FM8 = 

FM9 = 

PSGI = T, PV1. Rl/8. 05. A2, Rl/8. 04, A4, 04, A5 

A6 

PSG2= T. PV2, Rl/8. 05. A2. Rl/8. 04, A4, 04, A5 
A7 

PSG3= T. F. Fl/3. F2. F3/7. F4. F3/7. F5, Rl/7, F 

6. F7/17. F8 

SCC1 = 

SCC 2= 

SCC3= 

SCC4= 

SCC5= 

T=T180 

R1=R1 

V1=V13 

V2=V11 

V3=VI4 

VZ=VB15VS13VHI4VM15VC15 

Z1=R16. Z30 

PV1=V980 

PV2=V780R16. Z30 

03=03 

04=04 

05=05 



06=06 

84=84S1P0 

86=86S1P0 

80=80SI 

812=812S1 

863=863S0P50M1 

A1=L8 R4ERF2G4. (F2) FR4ERF2D4. (E2) E 

A2=L8 DERERDC (G2) GA4G4>C4<RA4G4. E4DCRER< 

GA2RA>CFRERGREDCD4<RA4. >C4<B4>CDR<G4. >DE 

RERDC (G2) GA4G4>C4<RA4G4. E4DCRER<GA4R>CRF 

GF<A-4R>CRFGF (E2) ED<G> (G 1 ) G 

A3=L8 (E2) ERE (A2) ARAG (Al ) ARGRGRED4 

A4=L4 A2. B8>C. DEGE. <A. >EE. <G. >E<B2. G8A. G 

EGE2AB8G. D. E. <B>C8<BAE8B>C8<BA>E8<B>C8<B 

A>D. C<B>CB>C8<BAE8B>C8<BA>E8<B>C8<BAD. GB 

>D<B2. . >C2. . R 

A5= L 1 6 D<GB>DG<B>DGBDGB>D<GB>DG<B>DGBDGB 

>D<GB>DG<B> 

A6=L16 DG 

A7=D32 

B1=L16 C8>CC< 

B2=L16 <A8GG> 

B3= L8 C>C<OC<C>C<C>C«B>B<B>B<B>B<B>B< 

A>A<A>A<A>A<A>A<G>G<G>G<G>G<FEF>F<F>F<F> 

F<F>F<E>E<E>E<E>E<E>E<D>D<D>D<D>D<D>D<G> 

G<G>G<G>G<G>G C>C<C>C<C>C<OC«B>B<B>B<B 

>B<B>B<A>A<A>A<A>A<A>A<G>G<G>G<G>G<G>G<F 

>F<F>F<F>F<F>F<F>F<F>F<F>F<F>F<G>G<G>G<G 

>G<G>GGGGGGGGG< 

B4= L 1 6 AA>AA<AA>AA<AA>AA<AA>AA<GG>GG<GG> 

GG<GG>GG<GG>GG<FF>FF<FF>FF<FF>FF<FF>FF<G 

G>GG<GG>GG<GG>GG<GG>GG< 

B5=L 1 6 A8>AA<A8>AA<A8>AA<A8>AA<G8>GG<G8> 

GG<G8>GG<G8>GG<F8>FF<F8>FF<F8>FF<F8>FF<G 

8>GG<G8>GG<G8>GG<G8>GG< 

B6= L 1 6 A8>AA<A8>AA<A8>AA<A8>AA<A8>AA<A8> 

AA<A8>AA<A8>AA<G8>GG<G8>GG<G8>GG<G8>GG<G 

8>GG<G8>GG<G8>GG<G8>GG 

CI = L8 R4CRC2D4. (C2) CR4CRC2<B4. > (C2) C 

C2=L8 RCRCR<G4R>D4EC4D4. E4R<A4R>E4E4R<G4 

>RE4RFRFRFEDRGRGRGFEF4EFRFRFG4FGRGRGRCRC 

R<G4R>D4EC4D4. E4R<A4R>E4E4R<G4>RE4C4R<A4 

G4F>C4R<A-4G4FG4. D4G4B>D<GB>DG<B>DG 

C3= L8 (A2) ARB> (C2) CRC<B> (C 1 ) C<RBRBRAG4 

C4=L16 A>CEC< 

C5=L16 GB>E<B 

C6=L16 GG>G<G 

C7=L16 GG>G32 

D1=L8 R4GRA2B4. (A2) AR4GRA2G4. (G2) G 

D2=L8 (C2) CRD (E2) ERED (El ) ERDRDRC<B4> 

E1=Y22, 80Y23, 50Y24. 40 SBM16S16S16S1 6 

E2=Y22. 60Y23, 30 SBM1 6SI 6S16S1 6 

E3=Y22, 150Y23. 110 SBM8SBM16SBM16R1 6 Y22, 

120Y23, 80 SBMI6Y22. 80Y23, 50 SBM16Y22. 60Y 

23. 30 SBM16 

E4=Y22. 80Y23, 50SBM1 6S1 6S1 6S1 6Y22, 150SBM1 

6S16S16S16Y22. 80SBM16S16SBM1 6SBM1 6 Y22. 1 

50 SBM16S16S16S16 

E5=Y22. 80Y23. 50SBM1 6S 1 6S 1 6S 1 6Y22, 1 50SBM I 

6S16S16S16Y22. 80SBM16S1 6SBM1 6SBM1 6 Y22 1 

20SBM16Y22. 80SBM16Y22. 60SBM16S16 

E6=Y22, 150Y23, 110 SBM1 6SBM1 6SBMI6SBM16 Y 

22. 120Y23. 80 SBM16SBM16SBM1 6SBM16 Y22, 80 

Y23, 50 SBM16SBM16SBM16SBM16 Y22. 60Y23, 30 

SBMI6SBMI6SBM16SBM16 
E7 = Y22, 60 BM4 

E8=Y22. 150Y23, 110 SBM16 Y22, 80Y23. 50 SBM 
1 6 Y22, 60Y23. 30 SBM8 

E9=Y22. 80Y23, 50Y24. 40 BM4S4BM8BM1 6BM16S4 
E10=Y22, 150Y23. 110 SBM8SBM8Y22. 120Y23. 80 

SBM8SBM8Y22, 80Y23. 50 SBM8SBM8Y22. 60Y23 
30 SBM8SBM8 Y22. 80 BM4BM4BM4BM4BM4 Y22, 1 
50Y23. 1 10SBM16 Y22, 80Y23. 50SBM16Y22, 60Y2 
3, 30SBM8 Y22, 150Y23. 1 I0SBM1 6R8Y22. 80Y23 
50SBM1 6R8Y22, 60Y23, 30SBM8 
F=81V 9 

F1=L16 R1..CR8. 
F2=L16 R1.C8CCRCCC 
F3=L16 R4CR8. R4CR8. 
F4 = L16 R4CR8. R4CCCC 
F5= L 1 6 VI 0CCCCCCCCCCCCCCCC 
F6=L16 R2. CCC8V9 
F7=L4 RVI0CRV8CV9 
F8=L8 CCCCCCCCR1R4U6CCC8V1 1CR8CR8C8 

•§fix-£ 

<FM VOICE No. 63> 

MD 14-5- I- 2-15- 1- 6- 3- 

CR 1 • 6- 15- 4- 0- 3- 

<PSG VOICE No. 0> 

32- 16- 14- 9-on -off- 17 

<PSG VOICE No. 1> 

32- 16- 0-32-off-on -6 



•0-off-off-off 
•0-off-on -on 
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HP ffl ft 



7VS/7hP> 







if-H^fc<7)A\ i;o£^(z7°n 

#EX>\z »>.* 7° 7. (ttigia*6)(z 

-3. — n>(i25f@*»h v7^7°7. 
<nmt, 625f@lZfc5 

*ftT*(J, ffii|Uz}ifF7J-*£l# 

77^7K &&UiWC&fr 
£;bfcl\, ZA^C- 1 X XA<fi 
l\£(0X C^'W(+ 1 )T'»7F? 
*!•§>„ *— #— K<7) K 2, 3£ 



Lfc<b. U-fcS-f U ?->*-£ 

<D2#£ii!a\ 4\ fML^A? 
— >£SfiDS£ii-*b ::t; hi 

£#/<??— xzt>A^*>ibt\ f 
hp>(j s ^n^"n(7)-a-p> 

A* V7" 7°7. [Z J; o TlS-a $ ftT fc 



. . . ■• 

• - ■■■ 
- ■• ■• 

. . . ■- 


2 : ♦ *? 
3 : H/VO 


A~>3~9 9 


HOUa? ^fW"**/? ■ 



t-3. — □ >£•> f-7°X^-g-$- MSXT--> 5 3.U— I- L/:7V'>7 t- P>WtT^ 
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fa&fcOiR— a— n >**£(+ 1o 

:HX7V->7hP >c7)tf^i s 
z<7)#|$£*ijffl-t3£, ig®fe 

1<73J:tIZ x 5 X 5(7)V7vg(7)_b 
2 5U«rfex #<7>2*IJ&?& — #T 
<7) 1 5IJ«r < £f fc<7><7)€Hfr£^*>1" 



£3* £A7J L £Vvt\ il$3 "ST 

7V->7ha>OT^It tX 
T, *Out Of Memory" (Z(i, 4'b 

/z*\ t(F>frt>i), fri-IBItLT 

^)\ Z<7)5 X 5<7)^ET-VH:ii, IE 

:i LT^i. 7V->7FP 










mt( ) mwz&7fkistizi\z>jw—y 
ot( ) ii^iUfcy^-> 

Q( ) S/^-^XCDWHI 



AISltg^A^IS 



01 <tz^(D(Dmmm 


m ••••• 

ooooo 


SI 


ooooo 
••••• 


2in ••••• 

ooooo 


*LU 


••••• 

ooooo 


U>3 ••••• 


*n> 


•ooo« 


Si ooooo 
••••• 


Me 


ooooo 
ooooo 


tuu ooooo 
••••• 


ttsn 


ooooo 
••••• 


few ooooo 


A++ 


o»o«o 



fcU «1«1 b'-y h£#;L 
5 £ % AmcDEM^mit 1 . ?¥#' \* 

*> £\ ffflfig liCitLTyt 7°* 
*£-£-<7)£ftJ, Mimtl^tlZO) 

10(7)1 4^ f'-y H:t4^o 






r BASIC-C"^ < S 

flistfXltfgv'^T-Aj 














mm, 7KC7SsizAi«iiii©a 

^L-SIA -5/u£<iS£B;tftjrt 
<fl5g|?e)ft£l3:v L^ttx * 
X CDO-r+f-KU-i' : 7Z:7 7 r : 6SS 1 

J ««E7HChL,*tf. COD 

1? — ^" — cw^scrfta*>cr*M« # tr?**?**— fK9 * +/- k u * 



1= THEN 180 
THEN RETURN 
I$<="3" THEN GOSUB 320 
[I$=CHR$(28)) 
;i$=CHR$ (31)) 



THEN P=0 
THEN P=1 
THEN P=2 



LIST 7V*/PSn> 



100 SCREEN 1 : COLOR 15, 1, 1 :KEY OFF 

110 DEFINT A-Z:DIM MT (24) , OT (24) , Q (24, 24) , C$ (2) 

120 GOSUB 600 

130 GOSUB 500 

140 ON S GOSUB 160,360,410 

150 GOTO 130 

160 X=0:Y=0: LOCATE , , 1 

170 LOCATE X+2, Y+2 

180 I$=INKEY$:IF I 

190 IF I$=CHR$(13) 

200 IF "1 "<=I$ AND 

210 X=X+(I$=CHR$(29)) - 

220 Y=Y+ (I$=CHR$ (30)) - 

230 X=X+(X=5)-(X=-1) 

240 Y=Y+(Y=5)-(Y=-1) 

250 P=-1 

260 IF I$="Z" OR I$="z 

270 IF I$="X" OR I$="x 

280 IF I$="C" OR I$ = "c 

290 IF P=-1 THEN 170 ELSE PRINT C$ (P) ; 

300 MT(X+Y*5)=P-1 :X=X+1 : IF X=5 THEN X=0 

310 GOTO 170 

320 FOR 1=0 TO 24 

330 LOCATE I MOD 5 + 2, I ¥5 + 2 

340 PRINT C$ (VAL (1$) -1) ; :MT (I) =VAL (1$) -2 

350 NEXT I: RETURN 

360 FOR 1=0 TO 24: FOR J=0 TO 24 

370 Q (I, J) =Q (I, J) +MT (I) *MT (J) 

380 NEXT J, I 

390 RETURN 

400 END 

410 FOR 1=0 TO 24:W=0:FOR J=0 TO 24 

420 W=W+Q (I.J) *MT (J) :NEXT J 

430 OT(I) =SGN(W) 

440 LOCATE I MOD 5+2, I ¥5+2 

450 PRINT C$(OT(I)+1) ; 

460 NEXT I 

470 FOR 1=0 TO 24 

480 MT(I)=OT(I) :NEXT I 

490 RETURN 

500 CLS: LOCATE ,,0: PR I NT " " 

510 FOR 1=0 TO 4:'FOR J=0 TO 4 

520 LOCATE 2 + J, 2+1 : PRINT C$ (MT (J+I*5) +1 ) ; 

530 NEXT J, I 

1 :t' -* Mt-f " 

2-M 1 )" 

3:W 






PRINT 
PRINT 



540 LOCATE 10, 2 

550 LOCATE 1 0, 3 

560 LOCATE 10, 4: PR I NT 

570 LOCATE 0, 10 

580 INPUT "l\'yi'f) 3 =i$Ja* ^fft r f4";S 

590 RETURN 

600 FOR I=&H91 TO &H99 STEP 8 

610 RESTORE 690 

620 FOR J=I*8 TO 1*8+7 

630 READ A$:VPOKE J, VAL ("4H"+A$) 

640 NEXT J, I 

650 VPOKE &H2012, &H41 

660 VPOKE &H2013, &H81 

670 C$(0)="":C$(1)="-":C$(2)="" 

680 RETURN 

690 DATA 00, 7e. 7e, 7e, 7e, 7e. 7e. 00 
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MSXturboR 

tifeMiDicnur. mmuzfr£z>o y-^Miifc 



MIDI©x-*7*-x*J/S 



MIDIOt*-* 



S51 



Itftif* HJg{ClJRS-232C-f>* 

z t &t£\.\ icf-^ *'1v<-f 

h -r ojuscaifg l x u» § ^rt t<7) 

Z£fc ^ZT\ S-flSMIDWSg 
£ 256fS>Sffl TZtzSb (D&mm. 

5t ^ -§-(7) c <7) n — ^ — T#afl- L 
fc N gfMSX-MUSI07)t£35BASIC£ 
MMLT*MIDI%-ftlJffl|-r5t N 311 G 
££Sbtz£7 ft MIDIt 1 -'- ? 2>*8£ 

^lti^o *o* t *r 1*2 it 

gfeo^ifc *nnnn*tt1QJ^KT\ 
~15£ T'(7)MIDI^ * >*7U#-§-„ 
* L Tm U <7) 'kkkkkkk* & K f& 
1 &m.X* ~1 27 £ -C<7V n°7 * - 
*-£jS**-*o itz, zcnmi- 

£•£(*, MML(7) *Z0" ~*Z255" £ 
f£l\ f£t<7) 1 /\*-f K7)MIDl7*— 

MMLT1S, : g$IA < ~95(7){iST" 

^b£ft*itft£\ miduz^i? 
nz> J — v %^r<nmt 2 * 7 ? - 

7_fcu -5 i »J 24^r *P X. fc 24~1 1 9 
WMMLT'li^flA* 0~96(7)J6Sl 



£-S£6ttft£\ MIDItzS*LT(i96 

MIDI<7)<±«-C(i, M£127!£ 
Pgt-fflKr < MT'# 5 t Z h tf 
MMLT'ti, fl^CDPSG^ FM^il 

fcaessj «i*i5SPgc*yfflir«)o 

¥ Z T*MML<7) : M: 1 H&34J® 
LT,^;H£ 8fSLfc 8~120£T* 
<7Mi#\ MIDI(7)^«T f — ^tLT 

#fc\ MMLC7)*@V\ *@C\ * 
LT *@0* ~*@127" £T-<7V\°7 




/- K^y 


Status lOOlnaaa 




Note Number Okkkkkkk 




Velocity OvvvvOOO 


; - h*7 


Status lOOlaaaa 




Note Number Okkkkkkk 




Velocity 00000000 


aaaa ft, MIDI f- +■ y *^#^ (0 ~ 15) -C* 5 „ 


kkkkkkk fi % %& (24 ~ 119) -C* D , *9 & -?' CO 


C75-ib^^^-7*7(7)B fcSftjyt- 5 o 


vvvvOOO f± N -< cr »>r >f — 0, MML "V'\ "@A" "CJB 





i£\) a.— A 


Status 


lOllaaaa 




Control Number 


00000111 




Control Value 


Ovvvvvvv 


3 V )•□- As^- 3-V i/ 


Status 


lOllaaaa 




Control Number 


Occccccc 




Control Value 


Ovvvvvvv 


MML "@V'\ "@C" (D'*? /-*—&* 


*<D**mt$ 


UtiZo 





7'P^7AfiX'>' 



Status HOOaaaa 

Program Number Oppppppp 



MML "@0"~"@127" Ofl^, ^Otlli^S 



»4%y79*v9 


Status 11111000 


7,2- \ 


Status 11111010 


■a VTA —=*- — 


Status 11111011 


Xb7' 


Status 11111100 


*4$V?9K*y?ffc^ MML "@S1" -tftkt "@S2" t? 
CD^-^ff $^5 PLAY^Ollff^^T-tS i, ^ n y 
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l-r^xh/sjii 




T$-rt;i/-7*y$a 





Id 


de. hoksvt 


;set address to save area 


■ — " — "~~""-"*~-^-^ 


^-^ "^"V. 


push 


hi 


;save hook address 


(MIDI^7»y'7«*-yh&';'b"yK) 


call 


copy5 


;copy old hook 


^*-^-~-^ ^^^^ 


Id 


hl.hokmdt 


;set address to new hook data 


' ■ . — — 


pop 


de 


;get hook address 




call 


copy5 


;set new hook 


; set & reset of MID! interface 


Id 


hi, h. mdin 


:save hook (MIDI IN) 




Id 


de, hoksvt+5 


;set address to save area 


.z80 


push 


hi 


;save hook address 


aseg 


call 


copy5 


:copy old hook 


org 0c00h 


J 








Id 


hi. hokmdi 


;set address to new hook data 


; Symbol Definition 


pop 


de 


;get hook address 




call 


copy 5 


;set new hook 


rdslt equ 00ch ;read slot 








calslt equ 01ch ;call slot 


jr 


inimdp 


1 


doscal equ 0JJ5h ;dos call 








ver_idl equ 002dh ;MAIN ROM Version ID 


setho2: 




;setting for MIDI cartridge 


ver_id2 equ 02eh ;M1DI interface ID 


Id 


hi. h. keyi 


;save hook 


exptbl equ 0fcclh ;slot expanded table 


Id 


de, hoksvt 


;set address to save area 


If equ #ah ;line feed 


push 


hi 


;save hook address 


cr equ {fdh ;carrige return 


call 


copy 5 


;copy old hook 


; MIDI interface 








UARTsend equ 0e8h 


8251 data transmit 


Id 


hl.hokmdx 


;set address to new hook data 


UARTrecv equ 0e8h 


8251 data receive 


pop 


de 


;get hook address 


UARTcmd equ 0e9h 


8251 command/mode register 


call 


copy 5 


;set new hook 


UARTstat equ 0e9h 


8251 status 








tm_int equ 0eah 


timer interrupt flag off 


jr 


inimdp 




timerjf equ tfech 


8253 counter #0 








timer 2 equ 0eeh 


8253 counter #2 


nomidi: 






tm_cmd equ ffefh 


8253 command 


Id 


de, msg0 


iprint message 


; hook 


Id 


c.9 




h. oknorm equ 0f f 75h 


call 


doscal 




h. mdin equ h. oknorm ;Hook for MIDI IN 


ret 






h. frqint equ JJff93h 


msgff: db 


cr. If. "MIDI 


interface is not found. $* 


h. mdtra equ h. frqint ;Hook for 8253 timer 








h. keyi equ 0fd9ah ; Hook for 8253 timer 


copy 5 : 








Id 


be, 5 






Mil 






; Set hooks 


ret 






setmidi: 


; Hook Definition 




call chkmidi ;Have I MIDI interface ? 








jp c. nomidi : No 


hokmdi: 




;hook for MIDI IN 


di 


JP 


raidi in 




jr z, setho2 ;MID1 interface is not built in 


ret 






Id hl.h.mdtm ;save hook (8253 timer) 


ret 







MIDI£M»Ufc5 

#fMSX-MUSIC<7)/\- YOjlT 

7°JU7°P 7=7 A £ A¥T 3> tt-tf 
X'Btz(DX\ ZZfrhtt?(D7°U 
^AtfiJlI-foT, %\m?J : &ZM 

tztzL, ZZlzmmLtz7°Q7 
7AtflJ£U-?(7)Ci s midicdOTIS 

>m% %<»$% T'MSX-DOS<7) 
COM-7 7-fJU^ BASIC<7)USRfH 



±U y°u V^ A15IJ £f£ U s &##. 

^><7) "setmidi" (i x MIDI<7)^» 
v^»7fLTU^->o MIDI*** 

itz^\z, mmtLxfrh=7<< 

;u *main" ^■i> J v>y°T^> 

7*JU-^>T'&5 *chkmidi" *<M 
IILTi^ Z<7)lrf^/13(zML 

-a*. ht(T>-<—^xmL<mm 



3% MDfo*&fct tilts tt 

m u &&7 v t zm-fctzz t it 

It £ X'l J, 7 >y * <7M Jl ^* Wj: 
2)C7)T*>i** ? 'jZ^/c *f*#jc:(Jx 

mttufi^o 

RST 30H 

DB ^P7^#f 

DW Sift 

RET 
£# # iAt*\ S^^MH*^^ 
^fMIDK7)7*y^tZtix 

JP #% 

M5l7°n?*7A(2 N C000H#±t!iiil. 



&(i{t**i£'j2^* < &S 

7*JU sv hokmdi" £ *hokmdf 
fOii< % 5/\'-T r- T'0(7)rt#(ix 
|*l/tMiDlffl<7)7 v ? (!*£&* 
tl-S-T-'— ^ 7^U *hokmdx" IS, 
*M*ltMIDIffl(7)-7 ? ^ tZ^ #iA 

9^ *nomidi" (i x MIDI*** 
•y h£ftTl^^if^-(7>&tfIo I 

'inimdp" i^*\ HRjSlZM— K? 

is. midi<7)^-t 5 >^£ifc£fE£ 
?<ntz/sbizi£m£tiz>o~)fi\ /A 
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hokmdt: 



hokmdx: 



jp mdtmin 

ret 

ret 

jp mdintr 

ret 

ret 



initialize MIDI Interface 

nimdp: 

MIDI baud rate generater 
Id a, 0010110b 



;hcok for 8253timer 



;hook for MIDI cartridge 



IIIII+- 
II+++- 



out 

Id 

out 



(tm_cmd), a 
a. 8 
(timer0),a 



; timer for 5msec 



Id 



out 

Id 

Id 

out 

Id 

out 

xor 
out 
call 
out 
call 
out 
call 
Id 
out 
call 
Set 8251 
Id 



a. 10110100b 
IIIIIII+- 
IIII++H — 
||* 



(tm_cmd), a 
hi. 20000 
a. 1 

(timer2),a 
a,h 
(timer2), a 



(UARTcmd).a 

waits 

(UARTcmd).a 

waits 

(UARTcmd).a 

waits 

a,40h 

(UARTcmd).a 

waits 

a. 01001 110b 



;8253 Control Word 
Binary Count 

Mode 3 :Rate Generater (Square Wave) 
LSB ReadAoad 
Counter #0 for Baud Rate Generater of 8251 



; Set Counter. 4MHz / 8 = 500KHz 
; Set 8253 Counter (LSB) 

;8253 Control ford 
Binary Count 
Mode 2 :Rate Generater 
2bytes ReadAoad 
Counter #2 for 5msec timer 



; Set 8253 Counter (LSB) 

; Set 8253 Counter (MSB) 

; Reset 8251 

: Set 

; Set 

: Set 

; Set 40h 

;8251 MODE Instruction 



II++- 



out 

call 

Id 



(UARTcmd).a 

waits 

a. 00100111b 
IIIIIII+- 
IIIIII+— 

hum — 

III In 

111+ 

11+ 

M 

+ 



Baud Rate :*16 ( 500KHz/16 = 31.25KHz ) 
Character Length : 8bits 
Parity Disable 
Stop Bit : lbit 



;8251 COMMAND Instruction 
Transmit : Enable 
~DTR = LOW : 8253timer enable 
Receive : Enable 
Send Break Character : Normal 
Error Reset : No Operation 
RTS = LOW : MIDI IN enable 
No Operation 
No Operation 



out 

in 

out 

Id 

Id 

call 

ei 



msgl: db 



(UARTcmd).a 
a. (UARTrecv) 
(tn_int),a 
de, msgl 
c.9 
doscal 



; interrupt flag reset 



;print message 



cr. If, 'MIDI interface and hooks are set'.cr, If, '$' 



main routine 



rstmidi 



reset MIDI interface and reset hooks 



rstmidi: 



reset 8251 



RTS = HIGH : MIDI IN disable 
DTR = HIGH : 8253timer disable 
:8251 COMMAND Instruction 
Transmit : Enable 
"DTR = High 
Receive : Disable 
Send Break Character : Normal 
Error Reset : No Operation 
RTS = High 



m<7)9 -f v— 7- >y -JX'tb £>8253 

7CD^P-y?£8-&JlU >Afflii 
ft f- "J 7°<7)8251 (ii^UART) ffl 

\z s 500*n'v;u , y<7)?py?£ 
fMJttJTo %##£* ZZXmb 

ti%> 4 ji tf^jwft? p v $ 1 u 

^(Dlts MIDI<7V\— K^xT'Uffl 
Hffl.m£ftT^3&(7) CPU<75? 

p v ?mfe%Lt. itnm^^h<nt£ 

!§)$&:: LT82530)* 7 >? — 2 

%-mis CPini*tLT5 ^ ytNH 
$.tz, t>o>?--\ lite, f}^> 



7 A A<ffi^<7) § RCttA § J: -9 (Z 

* -f -v-mifcnW^tfjfep -? tz 

% M^TiIif£$IJ$l-t$ 8251(7) 
IK£(3£*» w<7)^y7°(* x P^ 
> Visit*?— C, 
00H 00H 00H 40H 

<7)4/\'f h&$g(tt## &*;::£ 

#"3„ £fc^ P-7>KL-v^.^ — 

3„ •?<7)fc#>7°P^*7A$IJT'U: N 
++-7./L— ^><7) "waits" &P-JU 
U ?< $>?'£11KLT^& 



fetJb<7)^iSX% MIDI<7>ipfift*< 

flJT*( J, MlDiaHz y h $titz£ t* 
J viz— VkWfrl'* : ?' < -)l'<7) 
"main* (Zv-v>7°LTl^ 

^Jfc&b, Z(D *main" 1^(7) 
g&&*#\ MIDI^ft^yp^^A* 

&tu* lttiiffe> z<n-7n? 

mmrzztc %<ntztb. zzx- 

lt&z.TiQh1t?lz, Vstmidi"^ 

t(D "Ystmidi" £l^++-7'JU— 
9->1& MIDI<7)f£*£^£TSg|$ 
3\> £ 1*8251 <7)IW£%'.il:*k Mt s 
T7y?£fcfc(lMfo Z<7)£# 



>±SiLfclv7>(J % MIDI/^ftHW 
ttWWSjS U Tl^ 5 7 y ? £fe 

■f *'.&£*<* So 

^X— v<7) *midiirf ti s F*gjR$ 
ft/zMIDICftU MIDlA73<7)fcl'J 

■fjl^0-> e ZZVits 8251(7)7. 
r-^Uy^? — <7)<ii*r 6 il U 
&&<7)JIEI&iS'S MIDlA7J<7)flJ 
U &## >b li' *USER_in" £ s * L 
x midi ? -f v— <r>U U &*fc 6 
tf *USER_time" %-P— JH"S 
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T$=*Jb'7*1J5/X 







1 1 


— No Operation 


ei 






|H 






. 


- No Operation 


JP 


hoksvt+5 








out 


(UARTcmd).a 




ndtmin: 

in 


a, (UARTstat) 


:8253 timer ? 




call 


chkmd2 




and 


mmm 






jr 


z, rstmdl 


;if not built-in , then jump 


call 


nz.USER_time 


;yes 




Id 


de, h. mdtm 


; restore hook 


JP 


hoksvt 






Id 


hl.hoksvt 


;save area 










call 


copy 5 




JSER.in: 








Id 


de, h. mdin 




in 


a, (UARTrecv) 


;read MIDI IN data and reset interrupt flag 




Id 


hl,hoksvt+5 


;save area 


ret 








call 


copy5 




SER_time: 








jr 


rstmd2 




out 


(tm_int).a 


; reset interrupt flag 


rstmdl 


Id 
Id 


de, h. keyi 
hl.hoksvt 


; restore hook 
;save area 


ret 








call 


copy 5 




check MIDI interface 




rstmd2 


ei 






Return 


: [CF]=1 

: [CF]=0 . [ZF] = 


no MIDI interface 
found MIDI cartridge 




Id 


de, msg2 


;print message 




: [CF]=0 . [ZF]=0 MIDI interface is built in 




Id 
call 


c, 9 
doscal 




hkmidi: 








ret 






Id 
Id 


a. (exptbi) 
hi. ver_idl 




msg2: 


db 


cr. If, 'MIDI ir 


terface and hooks are resetS' 


call 
cp 

ret 


rdslt 

3 

c 


:read Main ROM version ID 
;MSX1.MSX2. MSX2+ return 




interrupt routin 




call 


chkmd2 


;read MIDI interface ID 










ret 


nz 


;MIDI interface is built in 


mdintr 








Id 


b,4 






in 


a, (UARTstat) 


:MIDI IN ? < 


hkrol: 








and 


mmm 




push 


be 


:save counter 




jr 


z. mdintl 


;no 


Id 


a. 4 






call 


USERJn 


;yes 


sub 


b 


; primary slot number 




jr 


mdintr 


;MIDI IN check again 


Id 


c. a 


;save 


mdintl 








Id 


hi, exptbi 






in 


a, (UARTstat) 


:8253 timer ? 


Id 


a, c 






and 


mmm 




add 


a, 1 


;set exptbi 




call 


nz,USER_time 


;yes 


Id 


l.a 






JP 


hoksvt 




Id 
and 


a. (hi) 

mmm 


; expanded ? 


midi in 








jr 


z, chkro3 


:no 




in 


a, (UARTstat) 


;MIDI IN ? 


Id 


b. 4 


;number of expanded slots 




and 


mmm 


< 


hkro2: 




; search expanded slot 




jr 


z, midinl 


;no 


push 


be 






call 


USER_in 


;yes 


Id 


a. mmm 






jr 


midi in 


;MIDI IN check again 


sub 


b 


;00100nnB 


midinl 








rlc 


a 





$X. *mdtmin*(ix «MIDI<7) 
? -T v-fij U '-feh-tf^gLT Z> £ > 
zi-)u£ti%y-7'ji>—3-> :: 

Xit, fiJfJiA^(7)^@^lv1IDI^-r 

\,f *USER_time* £3 — JH~5 C 
Zft£[$m~s *f#tttf>MIDIfc 

h\ 'mdintr" t^Wffr-* 
> j&Stn&fe&Wt. *midi.in* 

<nm££mmctz 



%kfor>izt£b^ 7'y?<nb£<7)fa 
#*.$>+> -ft & 'XMtfh Z>^£ 
& Mz-Xtszo, 
*USER_in" li N Ml DWTJM U &#• 
ayjmL tfti£'b, zo-fny^ 

A15IJT'« S MIDlA^tf-r-fr'b 1 

IHl$li *USER_time* it. MIDI 
^<V-COtlJ'JiA^Miio EAH# 
mzti3l&tWt&j&Art % 8253 

(nmi)&frzfmt% a mmxfc 

gp-^T-MiDi^^'-^ &mm tz 
xoi-tnm^o 




"/&&',£;' 



""'/,,'', 



rlc a 


-.lmnnm 


push 


af 




or c 


:100nnmmB = slot address 


push 


be 




call chkid 
pop be 


icheck MIDI ID 


push 

call 


de 
rdslt 


;read data 


jr z, chkroy 


;found MIDI ID 


pop 


de 




djnz chkro2 
pop be 


;next expanded slot 


pop 

Id 


be 
c. a 


;save data 


jr chkro4 


;next slot 


Id 


a. (de) 


;get char 


chkro3 : 

Id a.c 
call chkid 
pop be 


; search primary slot 
;set slot address 
:check MIDI ID 


cp 
jr 
pop 
inc 


c 

nz,chkid2 

af 

de 


;same ? 

;no 

; restore slot address 

-.next char 


j r z. chkroz 
chkro4 : 


: found MIDI ID 


inc 
djnz 


hi 
chkidl 


; check next char 


djnz chkrol 
scf 
ret 
chkroy : 

pop be 


; search next slot 
:no MIDI ID 


pop 
xor 
ret 
chkid2: 

pop 


be 
a 

af 


-.restore environment 
;I found ID 

; restore slot address 


chkroz: 




pop 


be 


; res tore environment 


xor a 

ret 


:set Z flag, reset Cy flag 


xor 
inc 
ret 


a 
a 


:worng ID 




Is MIDI interface built 


in ? 










Return : [ZF]=1 


built in 


; wait 3. 9microsec 






: [ZFM 


not built in 


stimel equ 


0e6h 


: system timer Low 


chkmd2: 

Id a, (exptbl) 




waits: 

push 


af 




Id hl,ver_id2 
call rdslt 
and 1 


;read MIDI interface ID 
;set Zflag 


push 

Id 

in 


be 

b.l 

a. (stimel) 


: set counter 

; get counter (low) 


ret 




Id 
waitlp: 


c. a 


; save it 






in 


a, (stimel) 


; get counter (low) 




check MIDI ID 




sub 
cp 


c 
b 






Entry :[A]=slot address 




jr 


c, waitlp 


; loop 




Return:Z flag is set if MIDI ID is found 


POP 
POP 


be 
af 




id_string: db 'MIDI' 




ret 






id_address equ 401ch 


:MIDI ID address 








chkid: 

push be 




; workarea definition 




Id de. id_string 
Id hi. id address 




hoksvt: ds 


10 


;hook save area 


Id b.4 

chkidl: 


; length of id_string 


end 







7°p 7=> A!fciU3(7)*#)T*fcMft 
fcJ:-5C *chkmidi*fi> MlDkD^r 

&*£fl^ ; 5+r7".'U— ^> F*3jft 

ttfay^PtV-ky r-TSo £ 

tZs *tftltMIDI#*-3*: *§•&(*, 
*+U— 77$ r *'J-fev r- U if 

Q77^-fe7 K fcLfcMIDIA* 
ft ttttf£ + -v 'J - 7 =7 71t I t £ 

kv r n 

ROM<7)2DH#ilil%UfcA,"C\ MSXCO 

im ^m^ %> o % (nm^Au rbo rt- 
mm& + * u -7 7 ?*■& v 

r- LTU?->T -So turbo Rtzr> 



<7)2EH#±fe£t^ rtJftMIDI<7>^ 

£f-ffrtt MIDI<7)HS ^m^ •& ¥ 
llCi, fe o 'P Lmws. z t cfc*« 

M:Wtf)l~l£s MIDI<7)ROM<7)401CH 
~401FH#±til(Z s *MIDI"£U-);£ 

^Tcz^p-y m:oi>t, -f(7)S: 
33H #*> s *»£* 1 &&&< % '$>m 

tfh^o ftiCJ:'), MlDl<7)^te 
£> -fe-y r-£ft/c*P-y r-#W 

7°P^'7A15iJT1i, *chkid*(7)SB 

£ftfc;*P-y h-Hoi^T, MIDI* 
- r- U -y v(7)^te^l)|^<§+f7";u 
-3->tz ^LT, *chkro1**^«b 



"chkroz" * T'<7)7°P ^7AT\ & 
I^P7h ^att^T«7 P >y 
KIOUT, *chkid"£W!±iLT 
MIDI&g?LT^5„ 

MSXtzSfL < Jtife^nfcMIDI 
<7>*$tK^ BASIC7°P^'7AT^IJ 

ffliL^-n^ a i:ftbnfc: £ 

#& -7v>l§(7)7 c P^'7A, £ 
< IZDOSCOyP^^AT'flp'r-i) 

z t ammtfo wmnmAtoKw 

Mt LTCi, iliMB\0S£ DMA&3& 

£^-)<7)fc s 9600bpsTSlifT 
ZtzSbCO, SV MSX-SERIAL232"* 
- h U -y vdDMAtf&ffcSflT 
U&GD(I V 31500bps(7)MIDI(ZDMA 



-5iv-etc N xv^^-f>^— 7i 

-T.(;feDMA^^fflLs x-r*? 
T 7 ? -fe 7. + lt^^m% b ti I *£ ^ 

-Zbh*.t£^b(Mzhlt)\ 

»#€£££ fcT; 7°P7'^A 
0iJCOftfI(7)(5 -) CO "waits" (i s ->* 
7AH7-^T, 3.9v-f 
^p#^#o+f7./u-^>fc 5 

turbo RT1i N CPUlZZ80£f£-?#£ 
3fc<7)MSX£(JWd:U x CPU<7)^ 

"bo f«0fc«!)V7h , 5i7v0;i'- 
7°T'(i^<s >>^rA^f7-| 
flbT * -f 5 > ?'£«?" § 'J&W 
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T0=ti}\>-TVJV7s 




#9tffir>ttDO50)Zf 
P^Att, MSX2 + 
t turbo RfttlHJffi* < Si < (DX' 
tfr\ -W<DN\SX2X'&m%.lX 

%mkf-^ 4 i7*77- 

GfiBSS^)* <7)fNUUo 




£ 4| £ '88^3^ -s§-T\ ~ nfimtf 
W)±lfhtlT^£Ltz 

£T S MSX-DOSt^SMW-lix 
H1 1 <7)<t -5 l3flJUiA^-*%II?tL 

>?-7,P-y r-P-JUT\ SIJUJA 

•y r 0t3%3&$tiX* ^Ctz^- 
v (7) RAM tfgrfp ft T I » & tf £• 

7 P -y h a— A^Wf^^^tMhtt 



A* 



^ 



sec*f r \ 



<■ 



« 



ttfc\ SIIWML/CMSX2 

■y H^C^oX^Sto 

V~— HB-F500 

i7^v\ YIS-805 

fcf^>— HC-90/95 

SjK*CLT, MSX2+£ turbo R 
T-ti, frt&h-fT. P -y h 3-1 (** 
7P-y h 3(7)ffi?Sl )tZRAM*<S 
frti* ^ £ C & -otz<?)X\ :H 

4ii]^Q&A(i, jaw^p^ 

^<7)S £ ^>7°JU£ LT&ffl L & 
L1ti3\ zt-Of-xn-y hP 

-7. P -y h 3-;Ki^pJtiT*fo 
^-v 1 £ 2 (;^LT(SFp1M*'J 
$.HA, ^— i> ^Cftf £?f» 

-7D7h3-JKl ^-f>ROM 
{z^LTco^-pTflT'To Dos^b 

■It ^ROM £ P — ;uf & *i ■£"£ lis 
r MSX-C Libraryj({ffi^14800[^ 
3IJ])^-ftSc7)yP^7A^\ 4fl 
'87^3E -§-(I?f«t L fc 7°P 7 7 A 
15IJ£*lJffiLT<fc*i?l\, 

D0Sc7)tlj tj iA^^Il7°a ^*7 A 



tftr 


1 


:M 


&H 


tz_^ 




c 


;/ 


o / 


&J 



£ s 7. p -y h SrMT 3 7°p ^*7 
A(J X DOS^i^ix-i- 7.?-f 
>? — 7i- 7c7)R0M^ib s y< 
>RAMtZ$siM$tLSTo fLT, 
-f > ? — 7. P -y h P — /l/Srfrft "7 
t # C ^~v *<ROMT'& £# 
bCS'BIOS*\ *-—p A<RAM# b 



-f>?-7.P>y hP-JU^JEL< 



€D iyDiA^^II©l]^¥ll[ 



y< 4 ^ ROM 



RAM 



3 -^-i p 1 

4 

6 -h 

__ 2 
5 



0000H 
0038H 



8000H 



FFFFH 



1 RAM<D38H#ifetf=l-.ll/Stl3 

2 IX, IY N Ibv7$-e#T5, 

3 ROM(D38H#ifctf=i--'U£tl3, 

5 H.KEYI tf =l-;l/£tl3 

6 +-A^^<^A^a^tl5 



1 MSX turbo Rt^7-^U-A>K>^ 3^S 

1 7btf>hi^ turbo R®^? 

4 -(D-fzyZhOMSl : ES1l*ft&* 
| Z?>^>lS»U^-5 xC7~^L/ 

8rt9<b© = ^^«iltf£a , turb0 RZL-if-ft P,, 
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MSX^n^VHSiiltll 





ynf^idwx 









^"fijli. SCREEN 5 CO®® (Z7 

^7'P^7A^MLJt Z 
tlTV v>§§T*C07°a ^-5 5 >7* 

7°P 7*7 AliOTC07*n -y 7 (Z 
WbttiTo 

®* -r >*-? > ($& ass* 

©z<7)7 n?*7A# r l$ffiT57- 

^-^xUTCOXPOS, YPOS£ 

lix 77°^ hcoxmi, YiMm 

*5c**t#^£S(& zzizte^ 
$ *it i ^ j^rcaas l i. to 

® EQUst^- £ffi Ofc T-b > 7*7 

7°n?'7A Tl$ -5 BIOS^ v * 
7A7-?xiJ7£EQU^£ffl 

(i, BIOSCOCHGMOD£fflU£To 



f£T & VDPCO U v 7 ;? —COil £ -> 
^fA9- ^xUTC^5gL/Tfc 
W1& CHGMOD£DK/tBL/::£# 

k * cort-giz vDP*<S!M$n* to 

*fc> Z Z T?7 7°7 -f h COJ^i 

xpos. YPosfc4m»HbL£-r 

ZZT*t* N ^77^ hCOJ®i£ 
^77^ hCOXJUI, Ylllt 

* n ** n ^ - ? x 'j t 7 co xpos, 

YPOS(Z4SJW$nTl^*(7)T\ *) — 

tf&»TS J: 7 [ZCCOF*g^^r## 
^M-WUSTo 

if, BIOSCOGTSTCK£-f£oT 

*— v;u+— ^i:*co7jrp|tc^f$ n 
TL^^H^ ZCOfifrbi&t! 

T*— ^C07 KU 7 £•;£#)£ To Z 
COT-'-^CiXPOS, YPOSlZ*§^£ 
tlTl^51^C0Jl^(ZO< biP# 
T&£ s <7)t*— ?T'T 

C7LT^^/c^7-tz-y h£I! 
^cojMI'zAq^: l v HS^n Ws. 
^J:7'ZfflfIELT*rb, 8fLl\9E 
*I£XPOS, YPOSlZ^fflLiTo 




^K^iiT-iS:^: fcHfc xpos, 
YPosiz*§irt?ftTi^jiitiz7 

*7°7< l-COA;? — >t*— 5\ 
*7-T u ^ ZMJt'o.-hT* 

— #£\ vRAM(zffls?n/c^n 

■if tlOTT— 7*JK7)fl*f ^<7Xufi(Z# 

g&ft'f^T^-f h£gt7pvr-5>z 

/\"?->f-5"?*7-7-^ 

tjy -f >;u— T^HWizftH* 

mtLt£^t%%. wmMmz.i& 

"€LTfctt(fs ^-f>^-7^>T' 
'iT |- U k'a— h x— 7'Vuco^co 

£Jitf$z£fc-t*#rTo 

7M^ »£©MSX5V;*.?a 
«ClR«Sne r -5t>£©I]DS/ 
1 7^3j£ f SEASARDINE1& 

j 5S8?C7Vt?>hL5*>l\3:3-, 
j ^/uU^ZBO'T'-^V^hlZ 



'jZ^^CO^f lj tJiiA^l^'Ji 
T-KWo 7 7 ^va>y-AT-(i 

MpHzttjifr S + +■ =? <7 5 -co^ 
(z j: o x 7°p ^*7 aco^iib#Fb^< 
SHtLS-To zcoS$T-(il]#^ 
#■" < L ^ < L ^c h coiz jB; ^ Sfm 
#IHtL*To 

ZCO/c*060t>CO 1 Z'JUZfrfr 
Z>9-< v-flj U iA^ ^^ffl L T 7 
x- h ^^i>COT-r o 

*-(*W(Z(ix TIMEi:lN7/\'>y7 

C07t§IT'ZC0rt^?r tZ L $. To 

frJiPS Z*t (ZTIMECOrt^^ii^ 

-^ >C0T^TC0MH*^7 L fc 
<b TIMECOfl^Ii^T Z COfl^'fi 

*coM(z/j:?> i x;u-7°Ti)^tt 
T-To 




96 



K57 t- ltif<T>1zt' t 



ipMOGKAMIfWSE 





*t>?iy*J7>h 




XOR 
LD 


A 
(TIME). A 






CALL NWRVRM 

INC HI 

LD A. (XPOS) 




^ -J 




£«©»1 






CALL NWRVRM 


^~"^^^^^^H H^ 












INC HL 


^^^^^^ 


MOV: 


XOR 
CALL 


A 
8TSTCK 


;iS«vwi*-*i-j • u -a rvJiixi* 




XOR A 
CALL NWRVRM 


; BIOS. ->X5 1 A9-i7X | J7©3:* 




ADD 
LD 


A, A 

D. 






fflyii*ICJ:i?f6Bffl 


CH6M0D EQU 005FH 




LD 


E.A 




WAIT: 


LD A. (TIME) 


LDIRVM EOU 005CH 




LD 


HL. MOVDAT 






CP 1 


OTSTCK EQU 00D5H 




ADD 


HL. DE 
E. (HL) 






JP C.WAIT 


NWRVRM EQU 0177H 




LD 






JP MAIN 


FORCLR EQU 0F3E9H ;W*6 




INC 


HI 

D. (HL) 








8AKCLR EQU 0F3EAH :Sf*fe 




LD 






W*J :&*«««-— 9 s > 


PG1SAV EQU 0F3EOH ; V D P U 's7L$— 1 ©1*135 














H. TIM! EQU 0FD9FH ;* -f V-SI y £#©7 •» £ 




LD 
ADD 
CP 
JP 


A. (XPOS) 
A. E 
255 
NZ.MOV1 


:Xffi}f©?iT£ 


INT: 


LD HI. TIME 
INC (HL) 
RET 


ID A. 15 ;color 15.0.0 
ID HL. 


MOV1 


INC 
CP 


A 
241 






&m&X>*7tv hr'-f (+X. +Y) 


LD (FORCLR). A 




JP 


N2.MOV2 




MOVDAT 


DB 0, 


LD (BAKCIR).HL 


M0V2 


DEC 
LD 


A 
(XPOS). A 






DB 0.255 
DB 1.255 


LD A. (PG1SAV) :spr i te size 16*16 
OR 00000010B 




LD 


A. (VPOS) 


;Yffi«©«J£ 




DB 1. 
DB 1. ! 


LD (PGISAV).A 




ADO 
CP 


A. D 
255 






DB 0. 1 

08 255. 1 


LD A, 5 ;screen 5 




JP 
INC 


NZ.MOV3 






DB 255. 


CALL CHGMOD 




A 






DB 255, 255 




MOV3 


CP 


196 








; SJiJ &#;!/- ?>©&!£ 




JP 
DEC 


C.MOV4 
A 






^75-f W^-yf-J 


Dl 


M0V4 


ID 


(YPOS).A 




SPRPTN 


DB 056. 116.230.226,087.015.027.017 


LD A. 0C3H 




X75 


-f h©g,T- 






DB 053. 063. 04B. 056. 030. 007. 056. 124 


LD HI. INT 








DB 028. 046. 103. 071. 234. 240. 216. 136 


LD (H. TIMHOJ.A 
LD (H.TIMm).HL 


PUT: 


ID 


HL. SPRPTN 


;/■?*■ -y?-7;KD!S3: 




DB 172.252.012.028. 120.224.028.062 


El 




LD 
LD 


DE, 7800H 
BC. 32 






7.-f=?-< F-^5-?-* 


; ?-£iy 7©#]»Hb 




CALL 


LDIRVM 




SPRCOL 


DB 10, 10. 10. 10. 10. 10. 10. 10 


LD HI. 




LD 


HL. SPRCOL 


:t) ? — f- — ~? IbCOt&'M 




DB 10, 10. 10, 10. 10. 10. 10. 10 


LD (XPOS).HL 




LD 
LD 


DE. 7400H 
BC. 16 






9-5HJ7 


; *-f v;i,-yy©ttGa& 




CALL 


LDIRVM 




XPOS: 


OS 1 :Xffifli©(£j? 


MAIN EQU S 




LD 
LD 


HI. 7600H 
A. (YPOS) 


;7FiJt'2- hf-7)HDSt 


YPOS: 
TIME: 


os 1 -.Ymmo&w 

OS 1 :»y^*E5]«*0>4'- 


; §jyii*[aa*9>*-£ U7- 




DEC 


A 






• nd 



of tware latest 






iran 






*MSXv;tf v > - V 7 h 7 1 7 P 

t to fc^fcffcFpt:: \t?7> 7° U 
507?R^1.f'bnS1-o tixm? 
fa m 3ffi(- Ail Ltzft&Ut, 
* ft W307J R £ "1 07J R #H* b 

fcfc\ AiSLfcflMWetSJi 8 B 
{ZTAKERUA^%3c<*tlSx r MSX 
■7ffP>-fO <f^ A "9— If* jC 



M^ftS^l-ft-^Ti^fo 



©y-A*>^-'J*SBF1 

(Dy-A7°p^^A^H 

fc(S— SB&ri fcf- L fc fc<7)(2@ < 
AiltffcSC-^TlJ, MSXvtf 



i*>(ZJSifri>(5A\ TAKERU/r 
b#gj T J<*ftS r MSXv#$;>7'n 

?*^ A-y— ef*" jtsHK ft& c 

#fc\ MuSICA('9O%10^-§-T'i|S 

©7°P </=? A £fB§i L ft * 7*4 T 

©MSX, MSX2, MSX2+, turbo R 
COSIJ 'JZ^RAM S VRAMCOgt/R, H 



««A(7)ftflFf, ft« ) «• WIB Uzh 



s 


t1 07-24 




m«iB^ESBliJ6-11-1 


r 


7U-I7m»liJ^l/ 


(^)P7^r- 


jfe 


Msxvzj^^saagB 


V7hOx7^Zl>5 1 7h^ 
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BHS3C»#*i 







m-ti-(D7)WJXI& 



H#B»fcLT#J:-3o 

Tl* <->*>«/£„ ^H#&o7cb 
fA,£^M:a<££jaH>T<fto 

K n -y 7° fc ^Ig|fc* * fcftrfr** L- 
*XLfc6*<7)ifrfc:><? h L/z7° 

fr K p -y 7°L ftlTntfft b &t\, 
:;x-?f) c u-r XT 5 i £ HB 

C? LTKP-y7°Lf;7V— \» 
-i-;W*£M(7>^ -y XtflHSInfc 
o £: bl£ff)£. t:ti U ** b, iA •?# 

SJoTfc'b-) (Fp-)o £M<7)K 

^T-fc-7— S^*y K u-fX K 

±m<r>T v X^rtfi ** ~rk. h\* 
ti^t~>a—¥0>tz o KP-y7° 

%m% -#&i^£(7)7V— V- 
#*§ II Hi X b* 5 *■ -y 7°^r^ra5 fc b 

TlJfcfl ■§■£##(:: LT15 Ll\, 
£ T-9" > 7°^7°P #5 A(4v5»fc 

*fc##W%^ MSX(7)#ib 



>r- AfMfi fc ^IST 4 ID g 

-v^n/c<7)T\ +>">7°;U7°PX 
?At idSfl|<r*- A b L I *tfc_blf It 

T£ -£#•?#£ -To ?ft3i<7)^i 

S-f (i H t>7°;U7°P X^ A<7)ig 

£<;fc>L<BfflllLJ:-5 

#*-*rH* 5 ftc7)¥*l£«o T 
WJ, *<&3iU*£fflH<r-A 
& Xu-TSA&tJ^Ui-AJi 
fcfj& 4~5AASgyttf^>-7o 1$ 
-5*— K(ih7>7 p 52tfe &5Ln 
(i v a - * - SriP X. fc 53#ttf «, * 

Ittttf "* -y f-mti t'*i% fc 7 o 

&£V£ *J >*«>*: b* #*P#^r 
Mfii-^-w^-y 7>b— ^(7)#ip 
JftO^x-f )£$(:: HjT, 

<7X£*rfc fj (7)A^b)iiC g-^(7)^ 
US-JIT, l^bHtTS^)**) 

»»JSCi:fc^Itlfc*(KP«yX)o 

£#«'*:*«:: £fcT-#£ 

U- £ U *^< 7h^L tzh-Z(D7° 
(n-;U) N ¥ftU±<7>5 L y7 , £fcH 



1000 SCREEN l: COLOR 15,1,1: KEY OFF 

1010 DEFINT A-2:DIM CDC 4 ) , STC5 1 > , CHC4 > , WKC4) , FFC4) 

,0P(4).0DC4> 

1020 DIM M1$C3),M2$C12, 1 ) , Y$C9 > . MCC4> . DCC4) , W2C3 > , 

U3C4),UI4C4) 

1030 DEFSNG Z 

1040 P$="t220vl0164":PLAY PS,P$.P$ 

1050 GOSUB 2620 

1060 CLSrPRINT "PUSH SPACE KEY" 

1070 IF STRIGC0)=0 THEN A=RND( 1 > : GOTO 1070 

1080 ZY=100 

1090 CLS: GOSUB 2540:ZY=ZY~1 

1 100 IF ZY < THEN 3860 

1110 GOSUB 2170 

1 120 PT=0:ZO=1 

1 130 FOR 1=0 TO 4 

1 140 PLAY "c", "e"."g" 

1150 DCC I )=STCPT):PT=PT+1 

1160 LOCATE 2 + 1*5, 5: PR I NT CCS 

1170 'X9=2+I*5:Y9=5:C=DCC I ): GOSUB 2 120 

1 180 PLAY "c", "e", "9" 

1 190 MCC I )=STCPT):OPC I )=0:OD( I )=0:PT=PT+1 

1200 X9=2+I*5 :Y9= 13 :C=MCCI): GOSUB 2120 

1210 NEXT I 

1220 GOSUB 2980:ZO=ZO+ZC 

1230 LOCATE 2.0: PR I NT "?>?■< 1$" 

1240 GOSUB 2020: GOSUB 22 10 

1250 LOCATE 2, 19: PRINT "K7" 

1260 LOCATE 2, 20: PRINT "3-11 

1270 LOCATE 2.2 1:PRINT n \-"Qv7*" 

1280 M=3:GOSUB 2040: IF Y=3 THEN 1090 

1290 GOSUB 2020 :ZY=ZY-ZC: GOSUB 22 10: PRINT CHR$C27> 
. ,. K> , 

1300 ZR=0:ZC=0: GOSUB 2170:ON Y GOSUB 1830,1900 

1310 IF ZRO0 THEN GOSUB 30 10 ELSE 1430 

1320 IF ZCO-1 THEN 1360 

1330 PLAY "c","e", "g":LOCATE 2,2:PRINT "*•' OvV " ; 

1340 ZY=2Y+ZO*2: GOSUB 2170 

1350 IF INKEY$="" THEN 1350 ELSE 1090 

1360 ZY=ZY-ZR: GOSUB 2 170 : ZO=ZO+ZR: GOSUB 2210 

1370 IF ZC=0 THEM 1410 

1380 PLAY "c", "e", "9" 

1390 SS=ZC: GOSUB 2200: LOCATE 2, 2: PR I NT "W7* "; 

SC$; "$" 

1400 GOSUB 2210:GOSUB 2020 : ZO=ZO+ZC: GOTO 1250 

1410 GOSUB 2210:PRINT CHRSC27 ) ; "K" 

1420 GOSUB 1900 



i^n y $&>xmto < fti& %mnt\ 
hl < imnrnfriTtAsXte l\.\ 

)i>*mWLXfrtzfi\ zcnf-L. 

ocoS#;u— f- >* < 'jZ^(z 4 s %> z. 
tizftf^^tzfrteo Ut^tU 

XZfrZmMTZ^-?- > hi 
U t r> it i r^<7)¥+Lc7)§i $ iy b Z 
c7)?Ut^ -y h T Z> i)\ £ fc+§¥<7) 



ti- K p «y y'TZfrKt'Wmrz 

[y^x^mmt^>^-^>tz n 

f&Z&BrLX'tTKi b<ntztfMSX 
X'mftKfrZohWKiya H 

BtUzBizttz'ttZ^x.tilf 

^^>Lhc7)^-y hfc-^Cfrfc? 

i: 1 ^ -5 75-;*^% S „ AH if -5 L c7) 
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ipEOGMAMJUWSE 



1430 GOSUB 2020:GOSUB 3090: IF ZC=- 1 THEN 1330 

1440 SS=ZC: GOSUB 2200: LOCATE 2, 2 -.PRINT "WX* "; 

SCS;"$" 

1450 GOSUB 2020:ZO=2O+2C 

1460 LOCATE 2. 19: PRINT "\,<7,~ 

1470 LOCATE 2, 20: PR I NT "'Js-'P' *)-J " 

1480 LOCATE 2,21:PRINT "h'Ovl*" 

1490 M=3;GOSUB 2040: IF Y=3 THEN 1090 

1500 GOSUB 2020 :ZY=ZY-ZC: GOSUB 22 10: PR INT CHRSC27) 

; "K"; 

1510 GOSUB 2170:ZR=0:ZC=0: IF Y=l THEN GOSUB 1830 

1520 IF ZRO0 THEN GOSUB 3180 ELSE 1620 

1530 IF ZCO-1 THEN 1570 

1540 PLAY "c", "e", "9": LOCATE 2, 2: PR I NT "h~ D-iO" " ; 

1550 ZY=ZY+ZO*2: GOSUB 2170 

1560 IF INKEYS="" THEN 1560 ELSE 1090 

1570 ZY=ZY-ZR: GOSUB 2 170 : ZO=ZO+ZR: GOSUB 2210 

1580 IF ZC=0 THEN 1620 

1590 PLAY "c","e", "g" 

1600 SS=ZC: GOSUB 2200: LOCATE 2, 2: PR I NT "LYX" 

SCS; "$" 

16 10 GOSUB 22 10 :GOSUB 2020 : ZO=ZO+ZC: GOTO 1460 

1620 GOSUB 22 10: PRINT CHRSC27 ) ; "K" 

1630 FOR 1=0 TO 4 

1640 X9=2+I*5:Y9=5':C=DCC I >:CDCI )=DCC I > : GOSUB 2120 

1650 NEXT I:GOSUB 2240 

1660 LOCATE 2, 4: PR I NT YSCPX) : DP=PX 

1670 FOR 1=0 TO 4 

1680 CDC I >=MCC I ):NEXT I 

1690 GOSUB 2240:LOCATE 2,12:PRINT Y$CPX>:MP=PX 

1700 IF MP>DP THEN U$="7*9 / *f " : ZY=ZY+ZO*2 : ELSE U 

$="MSX J 1}f" 

1 7 1 LOCATE 2 , 1 9 : PR I NT US 

1720 GOSUB 2170 

1730 IF INKEY$="" THEN 1730 ELSE 1090 

1740 END 

1750 FOR 1=0 TO 4 

1760 IF ODC I > THEN DCC I >=STCPT) : PT=PT+1 

1770 NEXT I 

1780 FOR 1=0 TO 4: IF OP< I >=0 THEN 1810 

1790 PLAY "c", "e", "9":MC(I)=ST(PT):PT=PT+1 

1800 X9=2+I*5:Y9=13:C=MCCI >: GOSUB 2120 

1810 NEXT I 

1820 LOCATE 0,10: PRINT CHRSC 27 > ; "K" ; : RETURN 

1830 IF ZY=0 THEN RETURN 

1840 ZR=l:LOCATE 2,19:PRINT "KX" IS": 

1850 IS=INKEYS:IF IS="" THEN 1850 

1860 IF IS=CHRS(13) THEN RETURN 

1870 ZR=ZR+C I$=CHRSC30>>-C IS=CHR$(31 > ) : ZR=ZR+CZR>Z 

Y)-CZR<1 ) 

1880 SS=ZR:GOSUB 2200-.LOCATE 10,19:PRINT SCS^ 

1890 GOTO 1850 

1900 X=0:X0=1 : LOCATE 0,19: PRINT CHRSC27 ); "K" : PRINT 



&U;M±3itl77j££ft3£*:£ 

7V— V— § JcD/Sftf&^lOO KJU 
&*riOK.iK7)£#<75 5 KJK7)p— 
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" \--Q- ": GOSUB 3 140 

19 10 FOR 1=0 TO 4: IF ODC I > THEN LOCATE 2+1*5, 10: PR 
INT "CHG"; 

1920 NEXT I 

1930 IF X-OX0 THEN LOCATE 3+X*5 , 18 : PRINT "^";:LOCA 

TE 3+X0*5, 18: PRINT " " ; 

1840 I$=INKEY$:IF 1$="" THEN 1940 

1950 IF I$=CHR$C13> THEN GOSUB 1750: RETURN 

1960 X0=X:X=X-( I$=CHRSC28))+C IS=CHR$C29 ) > : X=X-C X=- 

1)+CX=5) 

1970 IF ISOCHRSC305 THEN 1930 

1980 PLAY "c","e","g":OPCX)=OPCX> XOR 1 

1990 IF OPCX)=l THEN LOCATE 2+X*5 , 13 : PRINT CCS 

2000 IF OPCX)=0 THEN X9=2+X*5 : Y9= 13 : C=MCC X) : GOSUB 

2120 

20 10 GOTO 1930 

2020 LOCATE 0,18:FOR 1=0 TO 3 

2030 PRINT CHRSC27); "K": NEXT: RETURN 

2040 Y=l :Y0=M 

2050 IF Y <> Y0 THEN LOCATE l.Y+18: PRINT ">";:LOCA 

TE 1 ,Y0+ 18: PRINT " "; 

2060 I$=INKEYS: IF 1$="" THEN 2060 

2070 IF I$=CHR$C13> THEN RETURN 

2080 Y0=Y:Y=Y-C I$=CHRSC31 )) + C I$=CHRSC30 > > 

2090 IF Y=0 THEN Y=M ELSE IF Y>M THEN Y=l 

2 100 GOTO 2050 

2 110 END 

2 120 LOCATE X9,Y9:PRINT COS 

2130 LOCATE X9+ 1 , Y9+1 : PRINT M1$CC¥16) 

2 140 LOCATE X9+ 1 , Y9+3 : PR I NT M2SCC MOD 16 , CC¥ 16 )MOD 

2) 

2 150 RETURN 

2160 END 

2170 SS=ZY: GOSUB 2200 

2 180 LOCATE 11, 23: PRINT "VaV" *>" ; SCS; "$"; 

2 190 RETURN 

2200 SC$=RIGHTSCSTRINGSC 10 , 32 >+STRSCSS) , 10): RETURN 

22 10 LOCATE 2 , 1 : SS=ZO-l : GOSUB 2200: PRINT "V'yh 

"; SCS; "$" 

2220 RETURN 

2230 END 

2240 FOR 1=0 TO 4 

2250 WKC I >=CDC I ) MOD 16:FFCI>=0 

2260 NEXT: GOSUB 2490 

2270 PF=0:FOR 1=0 TO 3 

2280 IF WKCI)=WKCI+1> THEN PF=PF+1 : FFC I )=1 

2290 NEXT 

2300 IF PF=1 THEN PX=1:RETURN 

2310 IF PF=3 THEN PX=6+FFC 1 >*FFC2 >: RETURN 

2320 IF PF<>2 THEN 2360 

2330 FOR 1=0 TO 2 

2340 IF FFC I 5+FFC 1+1 )=2 THEN PX=3 : RETURN 

2350 NEXT :PX=2: RETURN 
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2360 IF WKC0>=0 AND WKC 4 >= 12 THEN WKC0)=8:WF=1 ELS 

E U)F=0 

2370 FOR 1=0 TO 3 

2380 IF WKC 1 + 1 )-WKC I )<>1 THEN SF=0 : GOTO 2400 

2390 NEXT:SF=1 

2400 IF WF=1 THEN WKC0>=0 

2410 FOR 1=1 TO 4 

2420 IF INTCCDC I )/lS) <> INTCCDC0 >/16 > THEN FF=0 : G 

OTO 2440 

2430 NEXT:FF=1 

2440 IF SF+FF02 THEN 2460 

2450 PX=8+WF : RETURN 

2460 IF SF=1 THEN PX=4: RETURN 

2470 IF FF=1 THEN PX=5 : RETURN 

2480 PX=0: RETURN 

2490 FOR 1=0 TO 4:MN=99 

2500 FOR J=I TO 4 

25 10 IF WKCJXMN THEN MN=WKCJ):C=J 
2520 NEXT:SWAP WKC I > , WKCC) : NEXT 
2530 RETURN 

2540 FOR 1=0 TO 5 1 

2550 STC 1 ) = C I¥13)*16+C I MOD 13) 

2560 NEXT I 

2570 FOR 1=0 TO 50 

2580 R1=INTCRNDC 1 )*52) 

2590 R2=INTCRNDC 1 >*52 > 

2600 SWAP STCR1 ),STCR2> 

26 10 NEXT I : RETURN 

2620 FOR 1=0 TO 3 : READ Ml SCI): NEXT I 

2630 FOR 1=0 TO 1 : FOR J=0 TO 12: READ M2SC J , I ) : NEXT 

J. I 
2640 FOR 1=0 TO 9 : READ YSCI):NEXT I 
2650 FOR 1=8 TO 79 : A=VPEEKC&H188+I ) 
2660 VPOKE I+&H300.A: VPOKE I+&H380.A 
2670 NEXT I 

2680 FOR 1=0 TO 3 : READ A$ 
2690 B=ASCCA$)*8:FOR J=0 TO 7 
2700 C=VPEEKCB+J):D=&H48*-C IOU) 
2710 VPOKE &H300+I*8+J+D.C 
2720 VPOKE &H380+I*8+J+D,C 
2730 NEXT J, I 
2740 FOR 1=0 TO 7 : READ A$ 
2750 B=VALC"&H"+A$> 

2760 VPOKE 1+&H348.B: VPOKE I+&H3C8,B 
2770 NEXT I 

2780 FOR 1=8 TO 3 1 : A=VPEEKC I+&H400 ) 
2790 VPOKE I+&H440, A: NEXT 

2800 FOR 1=1 TO 3: READ A: VPOKE A,&H1F:NEXT 
28 10 FOR 1=1 TO 3: READ A: VPOKE A,&H8F:NEXT 
2820 W$=STRING$C3,29:>+CHR$C31 ) 

2830 CO$="ooo"+W$+"ooo"+W$+"ooo"+W$+"ooo"+W$+"ooo" 
2840 CC$="fc&fc"+W$+"**J>"+W$+"fcfc*"+W$+"fcfc»"+W$+"ftfc*" 
2850 FOR 1=0 TO 8 
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2860 VPOKE &H378+I ,0: VPOKE &H488+I.0 

2870 NEXT I: VPOKE &H2012.4 

2880 RETURN 

2890 DATA ♦. 9 , ♦, * 

2900 DATA ' . a , b , c , d . e , f . g , h , i , j , k , 1 

2910 DATA P.s.r.s.t.u, v.w.x.y ,z, C , ! 

2920 DATA y-V7, 1V7, 2V7, 3-fc-h* , 7KL-K , 7?».<s>a 

2930 DATA 7)inOX, 4^-h" , ?,\-i,-\*?5vi>i., 0-i"*W7shL.-h75'vy:i. 

2940 DATA A.J.Q.K 

2950 DATA 9c , a2 , a2 , a2 , a2 , a2 , 9c , 00 

2960 DATA &H200C , &H200d , &H20 10 

2970 DATA &H200e , &H200f , &H20 1 1 

2980 ZS=INTCZY/100>+1 

2990 ZC=ZS*C I NTCRNDC 1 )*5 > + I NTCRNDC 1 >*5>+l ) 

3000 RETURN 

30 10 FOR 1=0 TO 4: CDC I >=DCC I ) : NEXT I 

3020 GOSUB 2240:PQ=PX:PP=INTCZR/ZY*10)+1 

3030 IF PQ>=2 THEN 3060 

3040 GOSUB 32 10: GOSUB 3380 

3050 PO=C(CF>=0)+CCS>=0))*3 

3060 IFPQ<=PP THEN ZC=C PQ+ I NTCRNDC 1 >*3 XPP) : RETURN 

3070 ZC=CPQ-PP+INTCRNDC 1 )*3))*ZS 

3080 RETURN 

3090 FOR 1=0 TO 4:CDCI)=DCC I ) : NEXT 

3100 GOSUB 2240 

3110 IF PX+ I NTCRNDC 1>>*2<1 THEN *ZC=-1: RETURN 

3120 ZC=CPX+INTCRNDC 1 )*3))*ZS 

3130 RETURN 

3140 GOSUB 3500 

3 150 FOR 1=0 TO 4 

3 160 IFW4CI)=1 AND RNDC 1 )>ZPTHENODC I > = 1ELSE0DC I )=0 

3170 NEXT I : RETURN 

3 180 PP=INTCZO/ZY*10)+1 

3 190 IF PX+ I NTCRNDC 1 >*2)<=PP THEN ZC=CPX+ I NTCRNDC 1 

)*6)<PP): RETURN 

3200 ZC=CPX-PP+INTCRNDC 1 )*3 ) >*ZS: RETURN 

3210 FOR 1=0 TO 4 

3220 WKCI)=DCCI> MOD 16: NEXT 

3230 GOSUB 2490 

3240 IF WKC0)=0 AND WKC4>=12 THEN WKC0>=8 

3250 FOR 1=0 TO 3 

3260 W2CI)=WKCI+1)-WKCI>:NEXT I 

3270 IF W2C0)*W2C 1)*W2C2>=1 THEN PS=4:G0T0 3340 

3280 IF W2C 1 )*W2C2)*W2C3)=1 THEN PS=0 : GOTO 3340 

3290 FOR 1=0 TO 4: IF W2CI>>1 THEN CS=-l:GOTO 3370 

3300 NEXT I : IF W2C0 5+W2C D+W2C2 5+W2C3 ) <> 3 THEN C 

S=-l :GOTO 3370 

3310 FOR 1=0 TO 4: IF W2CI>=0 THEN 3330 

3320 NEXT I 

3330 PS=I 

3340 PP=WKCPS):FOR 1=0 TO 4 

3350 IF DCC I ) MOD 16 = PP THEN CS=I:GOTO 3370 

3360 NEXT 1 :CS=1 
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pOGMMflpUSE 



3370 


RETURN 




3380 


FOR 1=0 TO 4 




3390 


WK<D=DCCI)¥16:NEXT 1 




3400 


GOSUB 2490 




3410 


FOR 1=0 TO 3 




3420 


UI2(I)=WKC 1 + 1 >-WK<I ):NEXT 1 




3430 


IF W2<0)+W2C 1)+W2C2)=0 THEN PS=4:G0T0 


3460 


3440 


IF UI2C 1 )+W2C2)+W2C3)=0 THEN PS=0 : GOTO 


3460 


3450 


CF=-1: RETURN 




3460 


FOR 1=0 TO 5 




3470 


IF DC< I >¥16=WKCPS> THEN 3490 




3480 


NEXT I 




3490 


CF=I : RETURN 




3500 


FOR 1=0 TO 4 




3510 


CDC I)=DCCI):W3CI >=0:W4< I )=0 




3520 


NEXT I 




3530 


GOSUB 2240 




3540 


FOR 1=0 TO 4-.WKC I )=DC( I) NOD 16: NEXT 


: GOSUB 


2490 






3550 


FOR 1=0 TO 3: W2C I >=WK( 1+1 )-WKC I ) : NEXT 


I 


3560 


ZP=1 




3570 


ON PX+1 GOTO 3720,3580,3620,3660.3850 


3850,38 


50,3700,3850,3850 




3580 


FOR 1=0 TO 3 




3590 


IF U2CDOB THEN UI3C I 5=1 : ELSE 1 = 1 + 1 




3600 


NEXT I: IF W2C3)<>0 THEN W3<4>=1 




3610 


ZP=.8:GOTO 3780 




3620 


FOR 1=0 TO 2 STEP 2 




3630 


IF WKCI+1 >-WKCI)<>0 THEN W3<I)=l:GOTO 


3650 


3640 


NEXT:W3C4)=1 




3650 


ZP=.8:GOTO 3780 




3660 


ZP=.8 




3670 


IF W2<1X>0 THEN W3C0 )= 1 : W3C 1 )=1 : GOTO 


3780 


3680 


IF W2C25O0 THEN UI3C2 ) = 1 : W3<3 )= 1 : GOTO 


3780 


3690 


W3C0)=1 :W3C3)=1 : GOTO 3780 




3700 


IF U2<0><>0 THEN W3C0)=1:GOTO 3780 




3710 


U)3<4)=1 -.GOTO 3780 




3720 


GOSUB 3380 




3730 


IF CFO-1 THEN UI4CCF)=1 : ZP=1 : GOTO 3850 


3740 


GOSUB 32 10 




3750 


IF CSO-1 THEN UI4CCS)=1 :ZP=1 : GOTO 3850 


3760 


FOR 1=0 TO 4:W4< I )=1 : NEXT 




3770 


ZP=.3:GOTO 3850 




3780 


FOR 1=0 TO 4 




3790 


FOR 1=0 TO 4 




3800 


IF W3C I )<>1 THEN 3840 




3810 


FOR J=0 TO 4 




3820 


IF DCCJ) MOD 16 = WKCI) THEN W4CJ)=1 




3830 


NEXT J 




3840 


NEXT I 




3850 


RETURN 




3860 


CLS:PRINT "GAME OVER" 




3870 


GOTO 1070 
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U X s 




DOT RACE 



S^7?a(S102^-yiC^ft 



10 ' DOTRACE 

50 ' V3*tv?-< 

100 COLOR15,0,0:SCREEN5, , : OPEN"GRP: "ASH 

1 : PSETC 96, 16):PRINTH1 , "DOT RACE" 

1 10 DEFINTA-Z: DIMXXC8 , 8 ) , YYC8 , 8 ) , X( 3 ) , YC 

8 ) , TC 5 , 4 ) , PPC 5 ) , OC 2 , 5 ) , NSC 5 ) 

120 F0RI=1T08:F0RJ=1T08:READA,B:XXC I , J ) = 

A:YYC I , J)=B:NEXT:READA,B:XC I)=A:YC I )=B:N 

EXT:FORI=1TO10 

125 ' *??*- xy 9-7t-f 

1 30 READR ,G,B: COLOR=C I , R , G , B ) : NEXT 
140 SETPAGE0, 1 : LINEC0 , )-C255 , 2 1 1 ) , 1 , BF 
150 FORI=0TO4:LINEC 1+16, I+16)-C31-I, 31-1 
), I+5,B:NEXT:LINEC2 1 , 2 1 )-C 26 , 26 ) , 10 , BF 
160 FORI=2T013:COPYC 16 , 16 )-C3 1 , 3 1 )TOC 1 * 1 
6, 16 ): NEXT: FOR I=2TO10: COPYC 16 , 16 )-C 3 1 , 3 1 
)TOC 16, 1*16): NEXT 

170 COPYC 16, 16)-C31 , 175)T0C224, 16): COPYC 
16, 16)-C239,31 )TOC16, 176 ) : SETPAGE0 , 
180 FORI=0TO7:LINEC96, 16 + 1 )-C 159, 16 + 1 ), V 
ALCMIDSC "0608 10 15 15090705", I *2+ 1 , 2 ) ) , , AN 
D:NEXT 

185 ' ZWr*? t"jf< 

190 PSETC 96, 32): PR I NTH 1 , "PLAYER" : P=0 
200 S=STICKC0)ORSTICKC 1 ) 

2 10 P=P+CS=5ANDP>0)-CS=1ANDP<5) 
220 PSETC 144,32),0:PRINTH1 ,P+1 

230 IFSTRIGC0)ORSTRIGC 1 )THENELSEFOR I =0TO 
35:NEXT:GOTO200 

235 ' til Za'J3? 

240 FORI=0TO5:N$C I ) = " ":NEXT:B=65 

:A=1 

250 PSETC 1 12,40):PRINTH1 , "NAME" 

260 FORI=0TOP:PSETC 1 44 , 32 ) : PR I NTH 1 ,1 + 1 

270 B=ASCCMID$CN$C I ),A, 1)) 

280 PSETC88+A*8,48),0:PRINTH1 , CHRSCB) 

290 PSETCB0+A*8.56),0:PRINTH1 , " A " 

300 S=STICKC0)ORSTICKC 1 ): IFSMOD2=0THENIF 

STRIGC0)ORSTRIGC 1 )THEN360ELSE300 

3 10 IFS=7ANDA>1THENA=A-1 :GOTO270 
320 IFS=3ANDA<8THENA=A+1 :GOTO270 
330 B=B+CS=5)-CS=1 ) 

340 IFB=640RB=33THENB=46ELSEIFB=47THENB= 

65ELSEIFB=450RB=9 1THENB=32ELSEIFB=3 1THEN 

B=90 

350 MID$CN$C I ), A, 1 )=CHR$CB):GOTO280 

360 LI NEC 96, 48 )-C 159 , 63 ) , , BF: A=l : NEXT 

370 LI NEC 96, 32 )-C 159,47),0,BF 

380 FORI=0TOP: OC2, I 5 = 1 + 1 : NEXT 

385 ' **■ X> ??■£■( 

390 PSETC24,32):PRINTH1 , "TIME 

BEST LAP":FORI=0TO1 :FORJ=0TOP 
400 PSETC 72+88* I , 48+J*24 ) : PR I NTH 1 , J+l : NE 
XT : NEXT 

410 FORR=0TO5:PSETC96,32):PRINTH1 , "COURS 
E";R+1 :LINEC94,47)-C 160, 1 12), 15.B 



420 PSETC 1 16, 136):PRINTH1 , "LAP": PSETC 1 12 
, 168):PRINTH1 , "TIME" 

430 F0RI = 1T03:PSETC88, 1 36 + 1*8 ): PR I NTH 1 , I 
: NEXT : GOSUB92 : X=96 : Y= 1 6 

435 ' 3-7. l>301i< 

440 C0PYCX,Y)-STEPC63,63), lTOC96,48) 

450 GOSUBl030:C=l : READAS 

460 Cl=VALCMID$CA$,C, l )): IFCl =0THEN5 10 

470 C2=MALCMID$CA$,C+1 , 1 ) ) : FORI = 1 TOC2*4 

480 X=X+XCC1 ):Y=Y+YCC1 ) 

490 COPYCX,Y)-STEPC63,63), 1TOC96.48) 

500 NEXT : C=C+2 : GOTO460 

505 ' X-TV 

5 10 FORI=0TOP:A=I+1 : B=2 : GOSUB1050 
520 PSETC 96, 124) : PR I NTH 1 ,N$CC) 

530 D=7:YY=0:XX=-1 : Xl=127 : Y 1 =48 : X= 1 12 
540 COPYC96, 16)-STEPC63,63), 1T0C96.48):G 
OSUB 1 030 : FORK=0TO2 : SETPAGE0 , 1 
550 COLOR=C2 , , 7~K*3 , ) : COLOR=C3 , , 7+CK> 
1 )*3,0):TIME=0 

560 IFT1ME>10800THENX1=127:Y1=48:GOTO640 
ELSES=STICKC0)ORSTICKC 1 ) 
570 XX=XX+XXC S , D ) : YY=YY+YYC S , D ) 
580 IFXX>0THEND=3+CYY<0)-CYY>0)ELSEIFXX< 
0THEND=7+CYY>0)-CYY<0)ELSED=1-CYY>0)*4 
590 X2=X1+XX:Y2=Y1+YY 

600 IFX2<16THENXX=-1:GOTO580ELSEIFX2>239 
THENXX= 1 : GOTO580ELSE I FY2 < 1 6THENYY=- 1 : GOT 
O580ELSEIFY2>191THENYY=1 :GOTO580 

6 10 IFCP0INTCX2,Y2)>4)0RCX2>127ANDX1<128 
ANDY2<64)THENXX=-XX: YY=-YY: D=CD+4)M0D8 : G 
OTO560 

620 LINECX2,Y2)-CX1 ,Y1 ), K+2 : COPYC X2-32 , Y 

2-32)-STEPC63,63)TOC96,48),0 

630 I FX2 < 1 28 ANDX 1 > 1 27 ANDY2 <64THENX 1 =X2 : Y 

1=Y2ELSEX1=X2:Y1=Y2:GOTO560 

635 ' LAP tafL'- 

640 SETPAGE0,0:T=TIME:TCC,K)=T 
650 Y=144+K*8:G0SUB 1070: NEXT 

655 ' V 2.y< taVJ" 

660 TCC,3)=TCC,0)+TCC, 1 )+TCC,2) 

670 IFTCC.0XTCC, 1 )ANDTCC, XTCC, 2 )THENT 

CC,4)=TCC,0)ELSEIFTCC, 1 XTCC, )ANDTCC, 1 ) 

<TCC,2)THENTCC,4)=TCC, 1 )ELSETCC, 4)=TCC, 2 

) 

680 T=TCC,3): Y=176 : GOSUB1070 

690 IFITHEN730ELSEFORJ=0TO1 :X=24+J*176 

700 PSETCX-16,48):PRINTH1 ,N$CC) 

710 T=TCC, J+3):Y=56:GOSUB1070 

720 OCJ,C)=l :NEXT:GOTO800 

730 D=C:FORL=0TO1:B=L:K=1 

740 A=K:GOSUB1050: IFTCD, 3+LXTCC, 3+DTHE 

NELSEK=K+1 : IFK> ITHEN780ELSE740 

750 FORM=ITOKSTEP-l : A=M 

760 GOSUB1050:OCL,C)=M+1 : NEXT 

770 X=8+L*176: Y=24+K*24: COPYCX+63 , 167)-C 

X,Y)TOCX+63, 191) 

780 X=8+L*176: Y=24+K*24 : OCL , D)=K: PSETC X, 

YX.PRINTH1 ,N$CD) 

790 X=X+ 1 6 : Y=Y+8 : T=TC D , 3+L ) : GOSUB 1 070 : NE 

XT 

800 GOSUB920: GOSUB 1 030 :LINEC 1 12, 144)-C15 

9, 167),0,BF:LINEC 112, 176 )-C 159, 184),0,BF 

: NEXT 

805 ' r>7.t> ta->L>~ 
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6 10 LI NEC 88, 32 )-C 167, 191 ),0,BF: PSETC 108, 

32):PRINT**1 , "POINT" 

820 FORI=0TOP:PPC I )=PPC I )+14-OC0, I )-OC 1 , 

I ) : OC 2 , I )=P+ 1 : NEXT : FOR I =0TOP : FORJ=0TOP 

830 IFPPCJXPPC I )ORPPCJ)=PPC I )ANDKJTHEN 

OC2, I )=OC2, I )-l 

840 NEXT: Y=24+OC2, I )*24 

850 PSETC 96, Y): PR I NT** 1 , NSC I ) : Y=Y+8 

860 PSETC 120, Y): PRINT** 1 , USING"****" ; PPC I ): 

NEXT 

870 FORI=0TOP:OC0, I )=0:OC 1 , I )=0:NEXT:GOS 

UB1030:LINEC8,48)-C7 1 , 184),0,BF 

880 LINEC96,32)-C 159, 184) , , BF : LI NEC 176. 

48)-C247, 184),0,BF:NEXT 

885 ' IVJsIVt taOV 

890 LINEC0,24)-C255,21 1 ) , , BF : A=l : B=2 
900 GOSUB1050: PSETC 80 , 40 ): PR INT** 1 ,N$CC)+ 
" won.": FOR I =0T05 : PPC I )=0 : NEXT : GOSUB 1030 
910 LINEC0,24)-C255,79),0,BF: GOTO 190 

9 15 ' 3-7. Wtl 

920 ONRGOTO940,950,960,970,980 

930 RESTORE 1 130: GOTO990 

940 RESTORE 1 190: GOTO990 

950 RESTORE1250:GOTO990 

960 RESTORE 13 10 :GOTO990 

970 RESTORE1370:GOTO990 

980 RESTORE 1 430 : GOTO990 

990 SETPAGE0, 1 : LINEC32 , 32 )-C223 , 175).0,B 

F:FORM=4T027: L INECM*8 , 32 )-CM*8 , 175), 1 

1000 NEXT:F0RM=4T02 1 : LI NEC 32 , M*8 )-C223 , M 

*8), 1 :NEXT:FORM=2TO10:READAS:FORN=2TO13 

10 10 IFVALCMIDSCAS.N-1 , 1 ))THENCOPYC 16, 16 
)-C31 ,31 )TOCN* 16.M* 16) 

1020 NEXT: NEXT: LI NEC 126 , 32 )-C 129 , 63 ) , 1 , B 
F : SETPAGE0 , : RETURN 

1025 ' PUSH SPACE 

1030 PSETC 96, 192):PRINT**1 , "PUSH SPC" 
1040 IFSTRIGC0)ORSTRIGC 1 )THENLINEC96 , 192 
)-C 159 , 1 99 ) , , BF : RETURNELSE 1 040 

1045 ' -;"iM SUB 

1050 FORJ=0TOP: IFOCB, J )=ATHENC=J 
1060 NEXT: RETURN 

1065 ' TIME fcsW 

1070 T1=T¥3600 : T2=TMOD3600 : T3=T2MOD60 
1080 PSETCX, Y):PRINT**1 , USING"** :****:**"; T 1 ; 
T2¥60;T3¥6: RETURN 

1085 ' DATA 

1090 DATA 0,-2,1,-1,2,0,1,1,0,2,-1,1,-2, 

0,-1,-1,0.-2,1,-1.2,0,1,1,0,2,-1,1,-2,0, 

-1,-1,0,-2,2,-2,1,1,1,1,-1,1,-1,1,-1,-1 

1100 DATA -1,-1,1,-1,1,-1,2,0,1,3.0,2.-3 

,1,-2,0,-1,-3,0,-2.3,-1,2,0.2.2,0,2,-1.1 

,-2,0,-1,-1,0,-2,1,-1,2.0,1,1,0,2.-1,3 

1110 DATA -2,0,-3,-1.0,-2,1,-3,2,0,3,1,0 

,2,-2,2,-1,1,-1,-1,-1,-1,1,-1,1,-1,1,1,1 

,1,-1,1,-2,0,-1,-1,0,-2,1,-1,2,0,1,1.0,2 

,-1,1,-2,0,-2,-2 

1115 ' COLOR DATA 

1120 DATA 0,0,2,0.7,0,0,7.0,0,7,0,1,1,1, 
2,2,2,3,3,3,4,4,4,5,5,5,6,6,6 

1125 ' COURSE DATA 

1130 DATA 110000000011,100000000001 
1140 DATA 000111111000,001111111100 
1150 DATA 001111111100,001111111100 
1160 DATA 000111111000,100000000001 



1 170 


DATA 


1 180 


DATA 


1 190 


DATA 


1200 


DATA 


1210 


DATA 


1220 


DATA 


1230 


DATA 


1240 


DATA 


1250 


DATA 


1260 


DATA 


1270 


DATA 


1280 


DATA 


1290 


DATA 


1300 


DATA 


817182223 


1310 


DATA 


1320 


DATA 


1330 


DATA 


1340 


DATA 


1350 


DATA 


1360 


DATA 


231282790 


1370 


DATA 


1380 


DATA 


1390 


DATA 


1400 


DATA 


1410 


DATA 


1420 


DATA 


821681736 


1430 


DATA 


1440 


DATA 


1450 


DATA 


1460 


DATA 


1470 


DATA 


1480 


DATA 


615241342 



1 1000000001 1 
766456443636241684760 
100000000001 ,000000000000 



001 1 1 1 1 1 1 100 
001 100001100 
00000 1 100000 



0001 1111 1000 
001 1 1001 1 100, 
001000000100 
1000111 10001 

776359423225324532221983770 
100000000001 ,000000000000 
001 1 1 1 1 1 1 100,00001 1 1 10000 
1 1001 1 1 1001 1 ,00001 1 1 10000 
0011111111 00, 0000 00000000 
100000000001 

7862524131426271615242383822 12 
1211282780 
100000000001 ,000000000000 
0111111111 10,0001 1111 1000 
1001 1 1 1 1 1001 ,000100001000 
01 1 100001 1 10,000001 100000 
100001 100001 
796252436352423424324434221283 



001 100000100 
00011 1 1 1 1001 
010001 11 1 1 10 
000000 100000 



10000000000 1 

001 11 1 11.1000, 

01001 1 1 1 1000 

001 1001 1 1 100 

100000000001 

728175625361564336413421342313 
1720 

000000000001 ,0 1 1000000000 

0001 1 1 100110, 100001 110100 

1 1 1 101 100100, 10O001 101101 

0001 1 1 100101 ,01 10001 10100 

0000 10000000 

748175615241314233415261736271 
232423821 18221282790 

♦DON'T TOUCH THIS! 

100 ' *** SHOKI 1 *** 

1 1 DEF I NTA-Z : 2Z=RNDC -T I ME ) : SCREEN 1,0,0: 
KEYOFF:WIDTH32: COLOR 15,1,1 
120 ONKEYGOSUB690 

130 FORI=0TO1 1 : READA: FORJ=0TO7 : READAS: YP 
OKEA*8+J , VALC "&H"+A$ ) : NEXT : NEXT 
1 40 FOR I =0TO4 : READAS : YPOKE&H20 1 A+ I , YALC " 
&H"+A$):NEXT 
150 GOSUB570 
160 ' *** SHOKI 2 *** 

170 XC0)=3:YC0)=3: XC 1 )=28:YC1 )=21 :CC0)=2 
08:CC1 )=216 
18© GOSUB620:KEYC 1 )ON 
190 ' *** MAIN *** 
200 FORPL=0TO1 

210 IFF0CPL)>0THENF0CPL)=F0CPL)-1 :CCPL) = 
208+PL*8+CCCPL)+l )M0D4: IFFCPL)=1THEN370E 
LSE300 

220 IFFCPL)=1THEN370 

230 S=STICKCPL+TT):T=STRIGCPL+TT): IFS=0T 
HEN300 

240 CCPL)=208+PL*8:XXCPL)=CS=6ORS=7ORS=8 
)-C S=20RS=30RS=4 ) : YYC PL ) = C S= 1 ORS=20RS=8 ) 
-CS=40RS=50RS=6) 
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250 Y0=6144+XCPL)+YCPL:>*32: V1=V0+XXCPL) + 
YYCPL)*32:V2=Y1+XXCPL)+YYCPL:>*32 
260 P1=YPEEKCV1 ):P2=VPEEKCY2) 
270 O=-CP1=232ANDP2>207)-CP1=232ANDP2=32 
)*2-(Pl=240ANDP2>223ORPl>207ANDPK225)*3 
-CP1=240ANDP2=32 5*4-CP1=240ANDP2>207ANDP 
2<224)*5-CT=-lANDPK>32>*5 
280 ON GOTO 300,340,300,340,300,350,36 
0,300,360,420 

290 VPOKEV0,32:XCPL)=XCPL)+XXCPL):YCPL)= 
YCPD+YYCPL) 

300 YP0KE6 144+XCPL)+YCPL)*32,CCPL) 
310 NEXT 
320 GOTO200 

330 ' *** BLOCK SUB *** 

340 YPOKEV0.32: VPOKEV1 , CCPL) : VPOKEV2 , PI : 
XCPL)=XCPL)+XXCPL>: YCPL)=YCPL)+YYCPL:>: IF 
P 1 =240THENV3=Y2 : GOSUB470 : GOT03 1 0ELSE3 1 
350 VPOKEV1 ,32:GOSUB440:GOTO3 10 
360 FCPL)=1 :W(PL)=XCPL)+XXCPL):ZCPL)=YCP 
L)+YYCPL):PCPL)=P1 :GOSUB450 
370 FORI=0TO1 

380 Y3=6144+WCPL)+2CPL)*32: V4=^3+XXCPL5+ 
YYC PL )*32 : P3=YPEEKC V3 ) : P4=VPEEKC V4 ) 
390 IFP3OPCPL)ORP4O32THENFCPL)=0:GOSUB 
440: 1=1 :NEXT: IFPCPL)=240THENGOSUB470 : GOT 
O300ELSEF0C-PL+1 )=-CP4<224ANDF0C -PL+ 1 >=0 
)*32-CF0C-PL+l )>0)*F0C-PL+1 ):GOTO300 
400 VPOKEY3 , 32 : VP0KEY4 , PC PL) : WC PL )=WC PL > 
+XXCPL):ZCPL)=ZCPL)+YYCPL) 
410 NEXT:GOTO300 

420 FCPL>=1 :WCPL)=XCPL)+XXCPL):ZCPL)=YCP 
L >+YYC PL ) : PC PL >=P 1 : SWAPXXC PL ) , YYC PL) : RN= 
INTCRNDC 1 )*2 5*2-1 : XXCPL)=XXCPL)*RN: YYCPL 
>=YYCPL )*RN : GOSUB450 : GOTO370 
430 ' *** SOUND SUB *** 

440 SOUND7,62:SOUND8, 15 : FORI = 1 TO 15 : SOUND 
1 , I : FORJ=0TO4: NEXT J , I : SOUND7 , 63 : RETURN 
450 SOUND0 , 30 : SOUND 1,0: SOUND7 , 62 : S0UND8 , 
1 6 : SOUND 11,0: SOUND 12,10: SOUND 13,0: SOUND 1 
, : RETURN 

460 ' *** WIN ? SUB *** 

470 I0=INSTRCCHR$C l v'PEEKCV3-2>)+CHR$C , v'PEE 
KC V3- 1 ) >+CHR$C YPEEKC Y3 > 5+CHRSC VPEEKC V3 + 1 
) )+CHR$C VPEEKC V3+2 ) ) , "***" ) 
480 I l=INSTRCCHR$CVPEEKCV3-64))+CHR$CVPE 
EKCV3-32))+CHR$Cv»PEEKCV3))+CHR$CVPEEKCV3 
+32 > >+CHR$C VPEEKC V3+64 ) ) , "***" ) 
490 IFI0+I 1=0THENRETURN 
500 ' *** WON *** 

5 10 FORI=-3TO-l : VPOKEV3-C 1 0+1 )*C I0>0 )-C I 
1+1 )*C I 1>0 5*32, 248: NEXT 
520 WICPL>=WICPL>+1 :GOSUB670 
530 SOUND7 , 60 : SOUND 1,0: SOUND8 ,10: SOUND9 , 
13 : SO=-SO*CRNDC 1 >> . 1 ANDSO<5 1 5+1 : SOUND0 , S 
0*5 : S0UND3 , SO : VPOKE&H20 1 F , C I MOD 1 5+2 >* 1 6- 
1 

540 IFCSTRIGC0)ORSTRIGC 1 ) )ANDI >50ORI >500 
THENS0UND7 , 63 : YPOKE&H20 1 F , &HF4 : ELSE 1 = 1 + 1 
:GOTO530 
550 GOTO170 
560 ' *** CRT SUB *** 
570 CLS:GOSUB670 

580 PRINT" ";STRING$C30, "ft'">; :F0RI=2T022 
: LOCATE 1 , I : PRINT"*" ; SPACESC28 > ; "ft" ; : NEXT 



: LOCATE 1 , 23 : PR I NTSTR I NG$C 30 , "ft" ) ; 

590 L0CATE7,7:PRINT"D0N'T TOUCH THIS!";: 

L0CATE3, 19: PRINT" CHIT SPACE KEY OR TRIGG 

ER)" ; -.L0CATE12, 12:PRINT"^ VW 'J"; 

600 S0UND7, 60: SOUND 1 , : SOUNDS , 10:SOUND9, 

1 3 : SO=-SO*C RNDC 1 > > . 1 ANDS0<5 1 )+ 1 : SOUND0 , S 

0*5 : S0UND3 , SO : VPOKE&H20 1 F , C I MOD 1 5+2 )* 1 6- 

1 

610 TT=-CSTRIGC0)ORSTRIGC 1 ) >-STRIGC2 )*2- 

1 : IFTT=-10RTT=2THENI=C 1+1 5MOD256 : GOTO600 

ELSES0UND7 . 63 : VPOKE&H20 1 F , &HF4 : RETURN 

620 F0RI=2T022:L0CATE2, I : PRINTSPCC28 ) ; :N 

EXT 

630 FORI=0TO49: LOCATE RNDC 1 )*28+2 . RNDC 1) 

*2 1+2: PRINT"*"; : NEXT 

640 FOR I =0TO9: LOCATE RNDC 1 )*28+2 , RNDC 1)* 

21+2:PRINT"fc"; : NEXT 

650 FORI=0TO9: LOCATE RNDC 1 >*24+4, RNDC 1 )* 

17+4: PRINT"*"; : NEXT 

660 RETURN 

670 LOCATE0,0:PRINTUSING" PLAYER- 1 ^tttttt 

PLAYER-2 'Jtttttt" ;WIC0);WIC1): RETURN 
680 ' *** GIVE UP *** 
690 KEYC 1 )OFF: RETURN 170 
700 ' *** CHR DATA *** 

7 10 DATA208, 10, 10 , 7C, D6 , FE, 44, 7C, 00 
720 DATA209 , 30 , F8 , A8 , BE, A8 , F8 , 30 , 00 
730 DATA2 10,7C,44,FE,D6,7C, 10, 10,00 
740 DATA2 1 1 , 18 , 3E, 2A, FA, 2A, 3E, 10,00 
750 DATA2 16,44,44,7C,D6,FE,44,38,00 
760 DATA2 17 , 30 , 7E , A8 , B8 , A8 , 7E , 30 , 00 
770 DATA2 1 8 , 38 , 44 , FE , D6 , 7C , 44 , 44 , 00 
780 DATA219, 18 , FC, 2A, 3A, 2A, FC. 18 , 00 
790 DATA224 , EE , EE , EE , 00 , EE , EE , EE , 00 
800 DATA232,38,4C,F6,82,DE,4C,38,00 
8 1 DATA240 , 6C , EE , 00 , C6 , 92 , BA , 7C , 00 

8 20 DATA248,6C,EE,00,C6,92,BA,7C,00 
830 ' *** COLOR DATA *** 

840 DATA91 ,71 .A4.94.F4 




PLOP 



fE7?2ittl03^-ytJfK 



1 SCREEN 1 , 2 , : W I DTH32 : COLOR 15,1,1: CLS 
20 KEYOFF: CLEAR&H92 , &HD000 : DEFINTA-Z 
30 DEFUSR=&HD0 12:DEFUSR1=&HD040 
40 DIMM$C9),ZC3),B$C31 >:ST=1 
50 DEFUSR2=&HD06F:GOSUB690 
60 ON INTERVAL=2 GOSUB 300 
70 GOTO550 

80 S=STICKC0):S1=STRIGC0) 
90 IFS1=-1THEN340 
100 S=CS+1 5/2: IFS=0THEN80 
1 10 X1=CS=4ANDX>6)-CS=2ANDX<24) 
120 Y1=CS=1ANDY>3)-CS=3ANDY<21 ) 
130 F=6144+X+Y*32:E=6144+X+X1+CY+Y1 5*32 
1 40 A=USRC F ) : B=PEEKC &HD000 ) : A=USRC E ) : D=P 
EEKC &HD000 > : C=PEEKC &HD03E) 
150 G=VPEEKCF):F=CG-102)MOD4 
160 IFD<198ANDC=0THENX=X+X1: Y=Y+Y1 : G0T02 
70 

170 IFFO0ORCO2THEN80 
180 IFB=121ANDY1=0THEN220 
190 IFB=137ANDX1=0THEN220 



106 



p(MMM||«U§E 



200 IFB=153ORB=185THEN220 

2 10 GOTO80 

220 C=6144+X+Y*32 

230 P0KE&HD03F, 1 02 : A=USR1 CO 

240 X=X+X1:Y=Y+Y1 

250 C=6144+X+Y*32 

260 POKE&HD03F.B-3: A=USR1CC) 

270 POKE&HD0GD , Y*8- 1 : P0KE&HD06E , X*8 

280 A=USR2C0> 

290 IFVPEEKC6 144+ZC2)+ZC3)*32)=182THEN40 

0ELSE80 

300 IFPLAYC0>=-1THENRETURN 

310 PLAYBSCBG) 

320 BG=BG+1 : IFBG=32THENBG=0 

330 RETURN 

340 INTERYALOFF 

350 L0CATE13, 12 : PRINT"MISS ! ! "; 

360 IFPLAYC0)=-1THEN360ELSEPLAY"T120Y12S 

1M2000O5L8GF16F16ECR16DC" 

370 FORI=0TO3999:NEXT 

380 L0CATE11, 12: PRINT"TRY AGAIN!" 

390 FORI=0TO4999:NEXT:GOTO570 

400 INTERYAL0FF:ST=ST+1: IFST=6THEN430 

410 LOCATE 1 3, 12 : PRINT"NICE ! !"; 

420 FORI=0TO4999:NEXT:GOTO550 

430 L0CATE9, 12:PRINT"ALL STAGE CLEAR !": F 

ORI=0TO3999:NEXT 

440 PUTSPRITE2,C0,209),0,0:CLS 

450 POKE&HD03F ,198: POKE&HD06D , 209 : POKE&H 

D06E , 1 20 : A=USR2 C ) : FOR I =7T023STEP2 

460 FORJ=16T022STEP2 : A=6 144+ I +J*32 : B=USR 

1 C A ) : NEXT J , I : POKE&HD06D , 111: A=USR2 C ) 

470 L0CATE9,9:PRINT"C0NGRATILATI0N"; : FOR 

I=0TO5999:NEXT 

480 F0RI = 1 1 1T079STEP-1 :POKE&HD06D, I : A=US 

R2 C > : NEXT : FOR I =0TO32 : PR I NTCHRSC 27 > + "L" 

490 NEXT:AC0>=80: AC 1 )=63 : AC2 )=160 : AC3 )=6 

3: AC 4 5=96: AC5 )= 103 : AC6 )=144: AC7 ) = 103 

500 FORI=0TO3: PUTSPRITE2 + I , C AC 1*2 ) , AC 1*2 

+ 1 >), 10,0:NEXT:LOCATE7,22 

510 PRINT"<< PLOP >>":FORI=0TO15 

: PR I NTCHRSC 27 ) + "L" : NEXT 

520 AS="T100V13S1M2000O4L4CCCCDDDDCCCCDD 

DD" : B$="T 1 00 V 1 3S 1 M2000O4L4EEEEFFFFEEEEFF 

FF" 

530 CS="T100V1 105L1CDEF":D$="EDCC" 

540 PLAYAS , B$ : PLAYAS , B$ , C$ : PLAYAS , B$ , D$ : 

GOTO540 

550 FORI=0TO9:READM$C I) : NEXT 

560 FORI=0TO3:READ2C I ) : NEXT 

570 LOCATE7,0:PRINT"<< P L P >>"; 

:LOCATE5,2:AS=" I I" 

580 PRINT" i 1"; 

590 LOCATE5 , 23 : PR I NT" ■ 

'"; : LOCATE 13, 2 

600 PRINT"STAGE"+CHR$CST+48); 

610 FORI=0TO19:LOCATE5,3+I :PRINTA$; : NEXT 

620 FORJ=0TO9:FORI=0TO9:A=6246+I*2+J*64: 

B=YALC"&H"+MID$CM$CJ>, 1+1 , 1 ))*16 

630 POKE&HD03F,B+102:C=USR1CA):NEXTI , J 

640 X=ZC0): Y=ZC 1 ) 

650 PUTSPRITE0,CX*8,Y*8-1), 10,0 

660 PUTSPRITE1 ,CX*8,Y*8-1 ), 1 , 1 

670 PUTSPRITE2,CZC2)*8,ZC3)*8-1),8,2 

680 BG=0: INTERYALON: GOTO80 



690 FORJ=0TO8 : READAS : FOR I =0TO 1 5 : POKE&HD0 

00+I+J*16, YALC"&H"+MID$CAS, 1*2+1 . 2 ) > : NEX 

TI , J 

700 FOR I =0TO3 1 : YPOKE8 16+1,0: NEXT 

710 READAS: FOR I =0TO3 1 : A=YALC "&H"+MID$C AS 

, 1*2+1 ,25>:FORJ=0TO3:VPOKE1200+I+J*128,A 

: NEXT J , I 

720 FORJ=0TO1: READAS: FOR I =0TO3 1 : VP0KE944 

+I+J*128.YALC"&H"+MID$CA$, 1*2+1,2)5 

730 NEXT I , J: READAS: FOR 1=0 TO 13 

740 YPOKE8204+I , YALC "&H"+MID$C AS, 1*2+1 ,2 

) ) : NEXT : FORJ=0TO2 : READAS : BS=" " 

750 FOR I =0TO3 1 : B$=B$+CHRSC VALC "&H"+M I DSC 

AS, 1*2 + 1 ,2))): NEXT I 

760 SPRITE$CJ)=BS:NEXTJ 

770 FORI=264T0727:A=VPEEKC I):YPOKEI , AORA 

/2: NEXT I 

780 FORI=0TO31 :READB$C I) : NEXT 

790 RETURN 

800 DATA0000CD4A00B8DA0AD047B9D20FD04FC3 

.60D023235E2356EB01FF003E00323ED0 

8 10 DATACD02D023CD02D01 1 1F00 19CD02D023CD 
.02D0783200D0793201D0C90000000000 

820 DATA23235E2356EB3A3FD0CD4D00233CCD4D 

,000 1 1F00093CCD4D00233CCD4D00C900 

830 DATAFE6AD26CD03A3ED03C323ED0C900003A 

,6DD02 1001BCD4D0023232323CD4DO021 

840 DATA01 1B3A6ED0CD4D0023232323CD4D00C9 

850 DATA00000000000000000303030303030303 

000000000000FFFF030303030303FFFF 

860 DATA00000000 10307F7F030303032333FBFB 

301000000000FFFF332303030303FFFF 

870 DATA0003070F03030303030383C303030303 

03030F070300FFFF0303C3830303FFFF 

880 DATA1 1 1 1F4F5F4F5F4F5F2F3F8F9FEFE 

890 DATA000 1030307FF7B3B1B0F1C1B3E3C7800 

00008080C0FEBCB8B0E070B0F8783C00 

900 DATA01020404F800844424 1023244 1428478 

008040403E0 1424448 1088480482423C 

9 1-0 DATAFF808080808080808080808080B080FF 
FF0 101010101010 101010101010101 FF 

920 DATAT120Y13S1M2000O5L16E8,D8,E8,D8,E 

E , EE , E8 , D8 , D8 , C8 , D8 , C8 , DD , DD , D8 , C8 

930 DATAC8 , 04A+8 , 05C8 , 04A+8 , 05CC , CC , C8 , 

4A+ ,L8R16A+,05C,D,E,D,E,F,G 

940 DATA1000000002 ,0000000000 , 1000000200 

,0000000000, 00 10000000, 0000050000 

950 DATA0000000000, 0020000 100, 0000000000 

,2000000001 ,6,3,12,13 
960 DATA0004444205 ,0000663000 , 1026660000 

, 1066660000, 1003660000, 1000660000 

970 DATA 1000660002 ,00006600 10, 2066666600 

,0000001000, 14,3,6,3 

980 DATA00660 00000, 0006 12 11 10, 000 10000 40 

,03040000 10 ,0066444200 ,00600000 10 
990 DATA0060000010 ,024000.0040 ,0662454400 

,6600000000, 18,5,6,3 • 

1000 DATA00020 10400, 0602022026, 060020 100 
6, 006 106 1560, 0006606600, 0222000 102 

10 10 DAT A0 00 000 100 ,0066266100,0103621 00 
0, 1 100612020, 14, 17, 16,21 

1020 DATA0000000000 ,0666666610 , 101040001 
0,002341 1021 ,0066666000,00006001 1 1 
1030 DATA 1006041 110, 1006244000 ,0160 10040 
0,2601 1 10050,6,21 , 14, 15 
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©)\y<?^y 



VJL\-3-T- 






©a®* 


yi^b— 9— 


10 • 7^yf y ■/ itW- 


20 A=RND(-TIME) 


30 PRINT 


40 FOR 1=0 TO 9 


50 A$(I)=CHR$(65+RND(1)*26) 


60 IF 1=0 GOTO 90 


70 FOR J=0 TO 1-1 : IF A$(I)=A$(J) GOTO 50 


80 NEXT J 


90 NEXT I 


100 MD=INT(RND(1)*4) ' +.-.*./ 


110 ON MD GOTO 300, 400, 600 


200 ■ w y 


210 X=INT(RND(1)*100000!) :Y=INT(RND(1)*1 


00000!) 


220 A=X:G0SUB 1100:PRINT" ";RI 


GHTSC "+AS. 5) 


230 A=Y:G0SUB 1100:PRINT" +";RI 


GHTSC "+AS. 5) 


240 PRINT" 






2 50 A=X+Y : GOSUB 1 100 : PR I NT" " ; R 


I GHTSC "+A$. 6) 


260 GOTO 1000 


300 ■ W y 


310 X=INT(RND(1)*100000!) :Y=INT(RND(1)*1 


00000!) 


320 IF X<Y THEN SWAP X, Y 


330 A=X:G0SUB 1100:PRINT" ";RI 


GHTSC "+AS. 5) 


340 A=Y: GOSUB 1100: PR I NT" -";RI 


GHT$(" "+A$. 5) 


350 PRINT" 


360 A=X-Y:G0SUB 1100:PRINT" ";R 


IGHTSC "+A$, 6) 


370 GOTO 1000 


400 " %W y 


410 X=INT(RND(1)*1000) :Y=INT(RND(1)*1000 


) 

420 A=X:GOSUB 1100:PRINT" ";RI 


GHTSC "+AS. 3) 


430 A=Y:G0SUB 1100:PRINT" x ";RI 


GHTSC "+AS.3) 


440 PRINT" 






450 C$=STR$(Y):IF LEN(C$)=1 GOTO 500 


460 K=3:FOR J=LEN(C$) TO 2 STEP -1 


470 A=VAL(MID$(C$. J, l))*X:GOSUB 1100:PRI 



NT" " ;SPACE$(K) ;RIGHT$(" "+A$. 4) 
480 K=K-1:NEXT J 

490 PRINT" 

500 A=X*Y: GOSUB 1100: PR I NT" ";RIGH 
T$(" "+A$, 7) 
510 GOTO 1000 

600 • 7 'if y 

610 X=INT(RND(1)*199) :Y=INT(RND(1)*999)+ 

1 

620 A=X:GOSUB 1100:PRINT" "; 

R I GHTSC "+AS. 3) 

630 PRINT" " 

640 A=Y: GOSUB 1100:PRINT" ";RIGHT$(" 
"+A$.3);:L=LEN(A$) 
650 A=X*Y: GOSUB 1100:PRINT" ) ";RIGHT$(" 

"+AS. 6) 
660 D$=STR$(X*Y) :D$=RIGHT$(D$. LBN(DS)-l) 
670 C$=STR$(X) :P=5-LEN(C$) :CS=RIGHT$(" 
"+C$, 3) 
680 P=l 

690 N= VAL (LEFTS (D$.LEN(D$)-3+P)) 
700 M=VAL(MID$(C$.P. 1)) 
710 A=M*Y:GOSUB 1100:PRINT" ";SP 
ACES (P);R IGHTSC "+AS.4) 

7 20 PR I NT" " : SPACES (P) ; " " 

730 N=N-M*Y:A=N: GOSUB 1100 

740 PRINT" " ;SPACE$(P) ;RIGHT$(" 

"+A$. 4) ; 
750 IF P=3 GOTO 1000 
760 A$="" 

770 P=P+1 :A$=A$+MID$(D$. LEN(D$)-3+P. 1) : I 
F P=3 GOTO 790 

780 IF VAL(MID$(C$.P. D)=0 GOTO 770 
790 N=VAL(STR$(N)+A$) 
800 L=LEN(A$):A=100+VAL(A$):GOSUB 1100:P 
RINTRIGHT$(A$,L) 
810 GOTO 700 

1000 PR I NT: PR I NT" PUSH ANY KEY" 
1010 A$=INPUT$(1) 
1020 PR I NT: PR I NT"*** tfl ***" 
1030 ON MD GOTO 1050. 1060. 1070 
1040 PRINT X;" +";Y;" =";X+Y:GOTO 1080 
1050 PRINT X;" -";Y;" =";X-Y:GOTO 1080 
1060 PRINT X;" x";Y;" =";X*Y:GOTO 1080 
1070 PRINT X*Y;" /";Y;" =";X 
1080 PR I NT: PR I NT 
1090 GOTO 30 
1100 " Ml $/V% V/i> 
1110 BS=STR$(A):A$="" 
1120 FOR 1=2 TO LEN(B$):A$=A$+A$(VAL(MID 
$(B$. I.1))):NEXT I 
1130 RETURN 



mi 

fc-7' 

n-K 
Y*w9 tvfin.' 



GOTO 190 



•_-) 



THEN A$=CHR$( 



GOTO 360 



10 " HANG MAN 

20 CLEAR 10000 :A=RND (-TIME) 

30 DIM A$(1000) 

40 W=0 

50 READ AS: IF A$<>"*" THEN A$(W)=A$:W=W+ 

l:GOTO 50 

100 • MV 

110 PRINT 
120 PRINT" [1] Y-k 
130 PRINT" [2] 9rf 
140 PRINT" [3] W 
150 PRINT" [4] W 
160 PRINT" [5] m 
170 PRINTW;"/ )n'V 
180 PRINT">"; 
190 A$=INPUT$(1) 
200 IF A$<"1" OR A$>"5" 
210 PRINTAS 

220 ON VAL (AS) GOTO 300. 700, 800. 900, 1000 
300 " Y -A 
310 T=3 

320 X$=A$(INT(RND(1)*W)) 
330 Y$=STRING$(LEN(X$), 
340 PRINTYS 

350 PRINT"LIFE:";T;" >"; 
360 A$=INPUT$(1) 
370 IF A$>="a" AND A$<=" 
ASC(A$)-32) 

380 IF A$<"A" AND A$>"Z" 
390 PRINT AS 

400 FOR 1=1 TO LEN(X$):IF MID$(Y$. 
$ GOTO 350 
410 NEXT I 
420 F=0 

430 FOR 1=1 TO LEN(X$):IF MID$(X$, 
S THEN MID$(Y$. I)=A$:F=1 
440 NEXT I 

450 IF F=0 THEN PRINT"f<fH!" :T=T-1: IF T=0 
GOTO 500 

460 IF X$=Y$ GOTO 600 
470 GOTO 340 
500 ' Y -tfrti - 

510 PR I NT" f -kt-i\'-\ MW\ ";X$;"f I/?." 
520 GOTO 100 
600 ' mi 

610 PR I NTXS: PR I NT" Mi' (•■)!" 
620 GOTO 100 
700 ' in' my 

710 PRINT:FOR 1=1 TO W 
720 PRINTAS(I-l), 
730 IF INKEYSO"" GOTO 100 
740 NEXT: GOTO 100 

800 • m \W 

810 IF W=1000 THEN PRINT"3H/ rf Wfi? H 

rty.': BEEP: GOTO 100 

820 LINE INPUT" ^3*? ^'h^ftft.f : J 

Mrih m 'JS 

830 IF A$="." GOTO 100 

840 FOR 1=1 TO LEN(AS) 

850 BS=MID$(A$. 1.1) 

860 IF B$>="a" AND B$<="z" THEN MID$(A$. 



1)=A 



1)=A 



108 



PUZ 



ZLE PAI 



RADISE 



I)=CHR$(ASC(B$)-32):GOTO 880 

870 IF B$<"A" OR B$>"Z" THEN PRINT'i-ft-/ 

880 NEXT I 

890 A$(W)=A$: PRINTED? !/7:/?.":W=W+l:G0T 

800 

900 ' in' t-7' 

910 OPEN "HANGMAN. DAT" FOR OUTPUT AS #1 

920 PRINr-fe-7'Mf'7." 

930 PRINT#l.f 

940 FOR 1=1 TO W:PRINT#1,A$(I-1):NEXT I 

950 CLOSE #1 

960 PRINT" t-7* iMVaWv^.'iGOTO 100 

1000 ' W a-y 

1010 OPEN "HANGMAN.DAT" FOR INPUT AS #1 

1020 PRINTn-KfiWa." 

1030 INPUT #1. W 

1040 FOR 1=1 TO W:LINE INPUT #1.A$(I-1): 

NEXT I 

1050 CLOSE #1 

1060 PRINT" a-y M'My7itf.":GOTO 100 

2000 • rimr-9 

2010 DATA ASSEMBLE, BASIC, COMPILE, DATA, EN 

GLISH 

2020 DATA FAST. GREAT. HIGH, INPUT. JUMP 

2030 DATA KILL. LOAD. MONITOR. NEW. OPEN. 

2040 DATA PRINT. QUESTION. READ. SAVE. TURBO 

2050 DATA UNDERSTAND. VERIFY. WRITE. YESTER 

DAY. ZEBRA. * 



3>VUx> 



10 ' V'JfT 

20 DEFINT A-Z 

30 DIM P(20.20) 

40 READ PX. PY 

50 X=0:Y=0:XX=0:CO=0 

60 READ A: IF AO-1 THEN P(X. Y)=A:X=X+1:G 

OTO 60 

70 IF X>XX THEN XX=X 

80 IF X>0 THEN Y=Y+1:X=0:GOTO 60 

90 YY=Y 

100 SCREEN 5.0:SET PAGE 0.0:COLOR 15.0,0 

:CLS 

110 A$="":FOR 1=0 TO 7:A$=A$+CHR$(VAL("& 

H"+MID$("F0C0A09008040201". 1*2+1. 2))) :NE 

XT I:SPRITE$(0)=A$ 

120 FOR 1=0 TO YY-l:FOR J=0 TO XX-1 

130 IF P(J. I)=0 GOTO 160 

140 LINE(PX+J*16-4, PY+I*16-4)-(PX+J*16+l 

l.PY+I*16+ll),14.BF 

150 GOSUB 1000:CO=CO+1 

160 NEXT J: NEXT I 

170 CX=0:CY=0 

180 IF P(CX.CY)=0 THEN CX=CX+l:GOTO 180 

190 MD=1 

200 ' MYlrf 

210 PUT SPRITE 0. (PX+CX*16+4. PY+CY*16+3) 

.8.0 

220 A=STICK(0):IF B=A THEN A=0 ELSE B=A 

230 IF A=0 GOTO 300 

240 DX=CX-(A>1 AND A<5)+(A>5) 



250 DY=CY-(A>3 AND A<7)+(A<3 OR A=8) 
260 IF DX<0 OR DY<0 GOTO 300 


1 ©T^-f k a°x;u 


^^^^^^^^^^^^^^^^^^^^^^^^^™^^^^^^^^^^™ 


270 IF P(DX,DY)=0 GOTO 300 


10 ' LETTER SLIDE 


280 CX=DX:CY=DY 


20 DEFINT A-Z :A=RND (-TIME) 


300 • tm 


30 SCREEN 1: WIDTH 32:COLOR 15.4.7 


310 AA=STRIG(0):IF BB=AA THEN AA=0 ELSE 


40 A$="a0000FE7C38 100000": GOSUB 3000 


BB=AA 


50 A$="b000010387CFE0000": GOSUB 3000 


320 IF AA=0 GOTO 200 


60 A$="c2030383C38302000":GOSUB 3000 


330 ON MD GOTO 400. 500. 600 


70 A$="d040ClC3ClC0C0400":GOSUB 3000 


400 ' Mi/a/ ill fr 


80 FOR 1=0 TO 4:FOR J=0 TO 4:P(J. = 1*5+ 


410 P (CX. CY) =2 : J=CX : I =CY : GOSUB 1100 


J:NEXT J:NEXT I 


420 MD=2:CO=CO-l: GOTO 200 


90 X=18:G0SUB 2000 


500 ' y w ■):' m? 


100 LOCATE 21. 17:PRINT"tyt-fX'" 


510 IF P(CX.CY)<>1 THEN BEEP:GOTO 200 


110 FOR 1=1 TO 100 


520 CIRCLE (PX+CX+16+4. PY+CY*16+4). 6. 12 


120 X1=RND(1)*5:Y1=RND(1)*5 


530 MX=CX:MY=CY:MD=3:GOTO 200 


130 X2=RND(1)*5:Y2=RND(1)*5 


600 • ft' to ft 


140 Z=P(X1, Yl) :P(X1. Y1)=P(X2. Y2) :P(X2. Y2 


610 IF P(CX.CY)<>2 THEN BEEP:GOTO 700 


)=z 


620 I=ABS (MX-CX) : J=ABS (MY-CY) 


150 NEXT I 


630 IF (I<>2 OR JO0) AND (IO0 OR J<>2) 


160 X=2:G0SUB 2000 


THEN BEEP: GOTO 700 


170 X=0:Y=0:Z=0 


640 J = (MX+CX) /2 : 1 = (MY+CY) /2 


180 LOCATE 3.4:PRINT"a"; 


650 IF P(J. IX>1 THEN BEEP: GOTO 700 


200 ' My %-T 


660 P(J. I)=2:GOSUB 1100:CO=CO-1 


210 X1=X:Y1=Y:Z1=Z 


670 J=MX:I=MY:GOSUB 1100 


220 A=STICK(0):IF B=A THEN A=0 ELSE B=A 


680 J=CX:I=CY:GOSUB 1000 


230 IF Z GOTO 400 


690 P(MX.MY)=2:P(CX.CY)=1 


300 " if«W iy*> 


700 CIRCLE(PX+MX*16+4. PY+MY*16+4). 6. 14 


310 IF A=3 THEN IF X=4 THEN Z=1:G0T0 500 


710 IF CO=l GOTO 800 


ELSE X=X+1:G0T0 500 


720MD=2:GOTO 200 


320 IF A=7 THEN IF X=0 THEN Z=1:G0T0 500 


800 ' WM 


ELSE X=X-1:G0T0 500 


810 OPEN'GRP:" FOR OUTPUT AS #1 


330 IF (A=l AND Y=4)OR(A=5 AND Y=0) THEN 


820 COLOR RND(l)*14+2 


Y=4-Y:G0T0 500 


830 PSET(64.0).0:PRINT#1. "CONGRATULATION 


340 GOTO 600 


S!"; 


400 " tl* W*l 


840 GOTO 820 


410 IF A=l THEN IF Y=0 THEN Z=0:GOTO 500 


1000 " M t9 


ELSE Y=Y-1:G0T0 500 


1010 CIRCLE(PX+J*16+4,PY+I*16+4).4,5:PAI 


420 IF A=5 THEN IF Y=4 THEN Z=0:GOTO 500 


NT(PX+J*16+4.PY+I*16+4).5,5 


ELSE Y=Y+1:G0T0 500 


1020 CIRCLE(PX+J*16+5.PY+I*16+3).3.7:PAI 


430 IF (A=3 AND X=0)OR(A=7 AND X=4) THEN 


NT(PX+J*16+4.PY+I*16+4),7,7 


X=4-X:G0T0 500 


1030 PSET(PX+J*16+6, PY+I*16+2). 15 


440 GOTO 600 


1040 RETURN 


500 " i-n 1WJ 


ii00 • M to 


510 IF Zl THEN LOCATE 1+X1*3. 6+Yl*2 ELSE 


1110 LINE(PX+J*16, PY+I*16)-(PX+J*16+8. PY 


LOCATE 3+Xl*2. 4+Yl*3 


+ 1*16+8). 14. BF 


520 PRINT" "; 


1120 CIRCLE (PX+J*16+4. PY+I*16+4). 4.0. 5. 3 


530 IF Z THEN LOCATE 1+X*3, 6+Y*2 ELSE LO 


1130 RETURN 


CATE 3+X*2.4+Y*3 


1140 GOTO 1140 


540 A=97: IF Z THEN A=A+2+X/4 ELSE A=A+Y/ 


2000 ' A' y/y y -9 


4 


2010 DATA 76. 54 :' A' -Jpj tf m f h 3 >) 


550 PRINTCHRS(A); 


2020 DATA 0.0,1,1.1.-1 


600 ' *3* to 


2030 DATA 0.0.1.1.1.-1 


610 AA=STRIG(0):IF BB=AA THEN AA=0 ELSE 


2040 DATA 1. 1. 1. 1. 1. 1. l.-l 


BB=AA 


2050 DATA 1.1.1.1.1.1,1.-1 


620 IF AA=0 GOTO 200 


2060 DATA 1. 1, 1. 1. 1. 1. 1. -1 


630 IF Z GOTO 900 


2070 DATA 0. 0, 1. 1. 1. -1 


640 IF Y GOTO 800 


2080 DATA 0.0.1.1.1.-1 


700 " 91 


2090 DATA -1 


710 A=P(X.4) 




720 FOR 1=4 TO 1 STEP -1 




730 P(X. I)=P(X. 1-1) 




740 LOCATE 3+X*2. 6+I*2:PRINT CHR$(65+P(X 
.1)); 
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750 NEXT I 

760 P(X,0)=A 

770 LOCATE 3+X*2. 6:PRINTCHR$(65+P(X,0)) ; 

780 GOTO 200 

800 ' # 

810 A=P(X.0) 

820 FOR 1=0 TO 3 

830 P(X, I)=P(X,I+1) 

840 LOCATE 3+X*2. 6+I*2:PRINT CHR$(65+P(X 

.0); 

850 NEXT I 

860 P(X.4)=A 

870 LOCATE 3+X*2, 14:PRINTCHR$(65+P(X. 4)) 

880 GOTO 200 

900 IF X GOTO 1100 

1000 ' IT »J 

1010 A=P(4,Y) 

1020 FOR 1=4 TO 1 STEP -1 

1030 P(I.Y)=P(I-1.Y) 

1040 LOCATE 3+1*2. 6+Y*2:PRINT CHR$(65+P( 

!.¥)): 

1050 NEXT I 

1060 P(0.Y)=A 

1070 LOCATE 3, 6+Y*2:PRINTCHR$(65+P(0, Y)) 



1080 

1100 

1110 

1120 

1130 

1140 

I.Y)) 

1150 

1160 

1170 

): 

1180 



2010 
2020 



GOTO 200 

" ^' 

A=P(0.Y) 

FOR 1=0 TO 3 

P(I.Y)=P(I+1.Y) 

LOCATE 3+1*2. 6+Y*2:PRINT CHR$(65+P( 

NEXT I 

P(4.Y)=A 

LOCATE 11. 6+Y*2:PRINTCHR$(65+P(4, Y) 

GOTO 200 
' 1) UW 

LOCATE X. 5: PR I NT" 

FOR 1=0 TO 4:L0CATE X, 6+1 *2 : PRINT" I 



2030 FOR J=0 TO 4:PRINT CHR$(65+P(J. I)); 

2040 NEXT J 

2050 IF I<4 THEN LOCATE X. 7+1*2 :PRINT" h 



2060 NEXT I 

2070 LOCATE X. 15:PR1NT"' ■ ' ' ' ' 

2080 RETURN 

3000 • hi19 ffl 

3010 A=ASC(A$)*8 

3020 FOR 1=0 TO 7 

3030 VPOKE A+I.VAL("&H"+MID$(A$. 1*2+2.2) 

):NEXT I 

3040 RETURN 



>«AD* 



10 DEFINT A-Z 

20 DIM C(9).X(9),Y(9).SX(9).SY(9).M(5.6) 

30 FOR 1=0 TO 5 



40 M(I.0)=-1:M(I, 6)=-l:M(0. I+1)=-1:M(5. I 

+1)=-1 

50 NEXT I 

60 FOR 1=0 TO 9:READ C(I).X(I). Y(I). SX(I 

).SY(I) 

70 FOR J=l TO SX(I):FOR K=l TO SY(I) 

80 M(X(I)+J.Y(I)+K) = I+1 

90 NEXT K:NEXT J: NEXT I 

100 " f PJ mi 

110 SCREEN 5, 1:SET PAGE 0.0:COLOR 15.0.0 

:CLS 

120 A$="":FOR 1=0 TO 7:A$=A$+CHR$(VAL("& 

H"+MID$("F0C0A09008040201". 1*2+1. 2))) :NE 

XT I 

130 SPRITE$(0)=A$ 

140 LINE(56.18)-(199. 193). 15. BF 

150 LINE(64,26)-(191. 185).0.BF 

160 LINE(96, 186)-(160. 193),0,BF 

170 FOR 1=0 TO 9 

180 LINE(65+X(I)*32. 27+Y(I)*32)-(62+X(I) 

*32+SX(I)*32. 24+Y(I)*32+SY(I)*32).C(I).B 

F 

190 NEXT I 

200 CX=1:CY=1 

300 " MV %-r 

310 P=0:IF M(CX.CY) THEN P=STRIG(0) 

320 PUT SPRITE 0. (48+CX+32. 10+CY*32), 15+ 

P*3.0 

330 A=STICK(0) 

340 IF B=A THEN A=0 ELSE B=A 

350 IF A=0 GOTO 300 

360 IF P GOTO 400 

370 CX=CX-(A>1 AND A<5)+(A>5) :CX=CX+(CX> 

4)-(CX<l) 

380 CY=CY-(A>3 AND A<7)+(A<3 OR A=8):CY= 

CY+(CY>5)-(CY<1) 

390 GOTO 300 

400 ' t'-7 W*i 

410 I=M(CX.CY)-1 

420 FOR J=l TO SX(I):FOR K=l TO SY(I) 

430 M(X(I)+J.Y(I)+K)=0 

440 NEXT K:NEXT J 

450 EX=-(A=3) + (A=7) :DX=X(I)+EX' DX=DX+(DX 

>4)-(DX<l) 

460 EY=-(A=5)+(A=1) :DY=Y(I)+EY' DY=DY+(DY 

>5)-(DY<l) 

470 FOR J=l TO SX(I):FOR K=l TO SY(I) 

480 IF M(DX+J.DY+K)<>0 THEN BEEP:GOTO 60 

" O'* i'W 

490 NEXT K:NEXT J 

500 LINE(65+X(I)*32, 27+Y(I)*32)-(62+X(I) 

*32+SX(I)*32.24+Y(I)*32+SY(I)*32).0,BF 

510 LINE(65+DX*32, 27+DY*32)-(62+DX*32+SX 

(0*32. 24+DY*32+SY(I)*32). C(I). BF 

520 X(I)=DX:Y(I)=DY 

530 CX=CX+EX:CY=CY+EY 

600 FOR J=l TO SX(I):FOR K=l TO SY(I) 

610 M(X(I)+J.Y(I)+K) = I+1 

620 NEXT K:NEXT J 

630 IF X(0)<>1 OR Y(0)<>3 GOTO 300 

700 ' ViWrf 

710 OPEN" GRP:" FOR OUTPUT AS #1 

720 PSET(64,0).0:COLOR RND(1)*15+1:PRINT 



#1. "CONGRATULATIONS!" 


730 GOTO 720 




1000 ' 37 


r-9 




1010" 


Hi-. 


ffX. Y. M X. Y 


1020 DATA 


8. 


1,0. 2.2 


1030 DATA 


7. 


0.0. 1,2 


1040 DATA 


7. 


3.0. 1.2 


1050 DATA 


11. 


0, 2.- 1, 1 


1060 DATA 


11. 


1.2. 1.1 


1070 DATA 


11. 


2, 2. 1. 1 


1080 DATA 


11. 


3.2, 1.1 


1090 DATA 


13. 


0. 3. 1. 2 


1100 DATA 


13. 


3. 3, 1. 2 


1110 DATA 


3, 


1.3, 2.1 



+>7.^ 



10 • im 

20 DEFINT A-Z :A=RND (-TIME) 

30 DIM P(10. 10). R(10, 10), N#(7. 100). NP(7) 

,X(100).Y(100),M#(100).F(100) 

40 SCREEN 5.0:SET PAGE 0.0:COLOR 15.0.0: 

LINE(0.0)-(255, 211). 15. BF 

50 A$="":FOR 1=0 TO 7:A$=A$+CHR$(VAL("&H 

"+MID$("F0C0A09008040201", 1*2+1. 2))) :NEX 

T I:SPRITE$(0)=A$ 

60 Z=80 

70 LINE(74,8)-(182. 116).0.BF 

100 ■ in- ? ma* 

110 FOR 1=0 TO 9:P(I.0)=-1:P(I.10)=-1:P( 

0, I+1)=-1:P(10. I+1)=-1:NEXT I 

120 X=RND(1)*9+1:Y=RND(1)*9+1:P(X,Y)=RND 

(1)*9+1:G0SUB 4200 

130 X=RND(1)*9+1:Y=RND(1)*9+1:IF P(X.Y)= 

GOTO 160 

140 IF P(X,Y)=-1 AND RND(1)<.01 THEN P(X 

,Y)=RND(1)*9+1:G0SUB 4200 

150 GOTO 130 

160 IF P(X-1,Y)<0 AND P(X+1,Y)<0 AND P(X 

.Y-1X0 AND P(X.Y+1)<0 THEN P(X.Y)=-2:G0 

TO 260 

170 IF P(X-1.Y)>0 OR P(X+1,Y)>0 OR P(X.Y 

-1)>0 OR P(X.Y+1)>0 GOTO 190 

180 GOTO 130 

190 FOR I=-l TO 0:FOR J=-l TO 

200 A=(P(X+I. Y+J)>0)+(P(X+I+1, Y+J)>0) + (P 

(X+I, Y+J+1)>0) + (P(X+I+1. Y+J+1)>0) 

210 IF A=-3 GOTO 250 

220 NEXT J: NEXT I 

230 P(X,Y)=RND(1)*9+1:G0SUB 4200:Z=Z-1:I 

F Z>0 GOTO 130 

240 GOTO 300 

250 P(X.Y)=-1 

260 Z=Z-1: IF Z>0 GOTO 130 

300 ' lW v tn-f Y 7 

310 FOR 1=0 TO 9:F0R J=0 TO 9 

320 IF P(J. I)>0 GOTO 430 

330 IF J>7 GOTO 380 

340 IF P(J+1, 1X1 OR P(J+2, 1X1 GOTO 380 

350 A#=0:K=J+1 

360 A#=A#*10+P(K. I) :K=K+1: IF P(K. I)>0 GO 

TO 360 
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PUZZLE PAI 



RADISE 



3 70 L=LEN (STRS (A#) ) -3 : N# (L. NP (L) ) =A# : NP ( 

L)=NP(L)+1:PRINT"*"; 

380 IF I>7 GOTO 430 

390 IF P(J. 1+1X1 OR P(J, I+2)<1 GOTO 430 

400 A#=0:K=1+1 

410 A#=A#*10+P(J,K):K=K+1:IF P(J,K)>0 GO 

TO 410 

420 L=LEN (STRS (A#) ) -3 : N# (L, NP (L) ) =A# : NP ( 

L)=NP(L)+1:PRINT"*"; 

430 NEXT J: NEXT I 

500 " IW I H 

510 FOR 1=0 TO 7 

520 IF NP(I)<2 GOTO 570 

530 FOR J=0 TO NP(I)-2 

540 FOR K=J+1 TO NP(I)-1 

550 IF N#(I.J)>N#(I,K) THEN SWAP N#(I. J) 

,N#(I.K) 

560 NEXT K:NEXT J 

570 NEXT I 

600 ' IW UW 

610 OPEN "grp:" AS #1 : COLOR 0. 15 

620 X=1:Y=0:N=0:M=0:SN=0 

630 X(SN)=X*8:Y(SN)=120+Y*8:M#(SN)=N#(N. 

M):SN=SN+1 

640 PSET(X*8, 120+Y+8). 15:PRINT#1.N#(N,M) 

650 Y=Y+1:IF Y=ll THEN Y=0:X=X+N+3 

660 M=M+1 

670 IF M<NP(N) GOTO 630 

680 M=0:IF Y>0 THEN Y=Y+1:IF Y=ll THEN Y 

=0:X=X+N+3 

690 N=N+1: IF N=8 GOTO 800 ELSE IF NP(N)= 

GOTO 690 

700 GOTO 630 

800 ' Y -k W 

810 COPY(0,120)-(255.211).0 TO (0.120.1 

820 FOR 1=0 TO 10:FOR J=0 TO 10: IF P(J, I 

)<0 THEN R(J, I)=-l 

830 NEXT J: NEXT I 

840 X=0:Y=0:LI=0 

1000 ' MV IrT 

1010 PUT SPRITE 0. (80+X*12.14+Y*12),8.0 

1020 A=STICK(0):IF B=A THEN A=0 ELSE B=A 

1030 IF A=0 GOTO 1100 

1040 X=X-(A>1 AND A<5)+(A>5) :X=X+(X>8)-( 

X<0) 

1050 Y=Y-(A>3 AND A<7)+(A<3 OR A=8):Y=Y+ 

(Y>8)-(Y<0) 

1100 ' s-rtr/ 

1110 A$=INKEY$:IF A$="" GOTO 1000 

1120 IF A$<>" " AND (A$<T OR A$>"9") G 

OTO 1000 

1130 IF R(X+1,Y+1)<0 THEN BEEP:GOTO 1000 

1140 IF A$=" " GOTO 1600 

1150 IF R(X+1,Y+1)<>0 THEN BEEP:GOTO 100 



1200 ' wn Mm? 

1210 R(X+1.Y+1)=VAL(A$):FI=-1 

1220 ' 33 Uil 

1230 GOSUB 2000: IF F GOTO 1300 

1240 GOSUB 4000: IF F THEN BEEP:R(X+1, Y+l 

)=0:GOTO 1000 

1250 FI=I 



1300 ' ff fill 

1310 GOSUB 2200: IF F GOTO 1400 

1320 GOSUB 4000: IF F THEN BEEP :R(X+1. Y+l 

)=0:GOTO 1000 

1330 LINE(X(I)+6, Y(I)+3)-(X(I)+LEN(STR$( 

A#))*8-2.Y(I)+3),8 

1340 F(I)=1:LI=LI+1 

1400 " 33 f^l-- Hi) h'W t7t'} ft9 

1410 IP PI— 1 GOTO 1500 

1420 I=FI 

1430 LINE(X(I)+6. Y(I)+3)-(X(I)+LEN(STR$( 

M#(I)))*8-2,Y(I)+3),8 

1440 F(I)=1:LI=LI+1 

1500 " W UW 

1510 PSET(78+X*12. 11+Y*12).15 

1520 PRINT #1,A$; 

1530 IF LI=SN GOTO 3000 

1540 GOTO 1000 

1600 ' Wl m *i* iM 7*4? 

1610 ' 33 fnl 

1620 GOSUB 2000: IF F GOTO 1700 

1630 GOSUB 4100 

1640 COPY(X(I)+6. Y(I)+3)-(X(I)+LEN(STR$( 

A#))*8-2,Y(I)+3).l TO (X(I)+6,Y(I)+3) 

1650 F(I)=0:LI=LI-1 

1700 ' 9f fill 

1710 GOSUB 2200: IF F GOTO 1800 

1720 GOSUB 4100 

1730 COPY(X(I)+6, Y(I)+3)-(X(I)+LEN(STR$( 

A#))*8-2,Y(I)+3),1 TO (X(I)+6,Y(I)+3) 

1740 F(I)=0:LI=LI-1 

1800 • IW 3 fa 

1810 R(X+1,Y+1)=0 

1820 PSET(78+X*12, ll+Y+12), 15 

1830 PRINT#1," "; 

1840 GOTO 1000 

2000 ' 33 WW, 

2010 F=0 

2020 X1=X+1:Y1=Y+1 

2030 IF R(X1-1,Y1)=0 THEN F=l: RETURN 

2040 IF R(X1-1,Y1)>0 THEN X1=X1-1:G0T0 2 

030 

2050 A#=0 

2060 IF R(X1.Y1)=0 THEN F=l: RETURN 

2070 IF R(X1.Y1)<0 GOTO 2090 

2080 A#=A#*10+R(X1,Y1):X1=X1+1:GOTO 2060 

2090 A=LEN(STR$(A#))-3:IF A<0 THEN F=l 

2100 RETURN 

2200 ' If mm 

2210 F=0 

2220 X1=X+1:Y1=Y+1 

2230 IF R(X1,Y1-1)=0 THEN P=l: RETURN 

2240 IF R(X1,Y1-1)>0 THEN Y1=Y1-1:G0T0 2 

230 

2250 A#=0 

2260 IF R(X1,Y1)=0 THEN F=l: RETURN 

2270 IF R(X1,Y1)<0 GOTO 2290 

2280 A#=A#*10+R(X1.Y1):Y1=Y1+1:GOTO 2260 

2290 A=LEN(STR$(A#))-3:IF A<0 THEN F=l 

2300 RETURN 

3000 • tm 

3010 PUT SPRITE 0, (0, 220) 
3020 COLOR 15,0.0 



3030 PLAY"S0M3000T120O4L16G4E8. FG4C4DEFG 

F8E8D2" 

3040 PLAY"EFGAG8G805C404G4F8E8D8. CC2" 

3050 GOTO 3030 

4000 ' V)f Ml 

4010 F=0:FOR 1=0 TO SN-1 

4020 IF M#(I)<A# THEN NEXT I :F=1: RETURN 

4030 IF M#(I)OA# THEN F=l 

4040 IF F(I) THEN NEXT I:F=1 

4050 RETURN 

4100 ' WW m W) 

4110 F=0:FOR 1=0 TO SN-1 

4120 IF M#(I)OA# THEN NEXT I 

4130 IF F(I)=0 THEN NEXT I 

4140 RETURN 

4200 ' fail UW 

4210 LINE(63+X*12. -3+Y*12)-(73+X*12. 7+Y* 

12). 15. BF: RETURN 



©m. in 



i0' mi 

20 CLEAR 500:DEFINT A-Z 

30 A=RND(-TIME) 

40 DIM L$(8,8) 

50 PR I NT" LEVEL [1 (EASY) -5 (HARD) ] : " ; 

60 A$=INPUT$(1):IF A$<T OR A$>"5"GOTO 

60 ELSE PRINT A$:L$=A$:L=7-VAL(A$) 

70 PRINrtW-f tWfit." 

80 GOSUB 3000 

100 SCREEN 5.0:COLOR 0. 15.0:CLS 

110 OPEN" GRP:" AS #1 

120 A$="":FOR 1=0 TO 7:A$=A$+CHR$(VAL("& 

h"+MID$("F0C0A09008040201". 1*2+1. 2))) :NE 

XT I 

130 SPRITE$(0)=A$ 

140 GOSUB 1000:GOSUB 2000 

150 COLOR 4. 15 

160 X=0:Y=0 

200 • My *-7" 

210 A=STICK(0):IF B=A THEN A=0 ELSE B=A 

220 IF A=0 GOTO 250 

230 X=X-(A>1 AND A<5)+(A>5 AND A<9):X=X- 

(X<0)+(X>8) 

240 Y=Y-(A>3 AND A<7)+(A<3 OR A=8):Y=Y-( 

Y<0)+(Y>8) 

250 PUT SPRITE0. (64+X*16. 55+Y*16). 8.0 

260 A$=INKEY$ 

270 IF A$=" " GOTO 300 

280 IF A$>"0" AND A$<":" GOTO 400 

290 GOTO 200 

300 • n 

310 IF MID$(N$(Y).X+1.1)<>"0" THEN BEEP: 

GOTO 200 

320 IF MID$(M$(Y),X+1.1)="0" THEN BEEP:G 

OTO 200 

330 MID$(M$(Y),X+1.1)="0" 

340 PSET(62+X*16. 53+Y*16).15:PRINT#l." " 

350 P=P+1 
360 GOTO 200 
400 ' W 3 tl 
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410 IF MID$(N$(Y),X+1,1)<>T THEN BEEP: 

GOTO 200 

420 IF MID$(M$(Y).X+1,1)<>"0" THEN BEEP: 

GOTO 200 

430 IF INSTR(M$(Y).A$) THEN BEEP: GOTO 20 



440 B$="":FOR 1=0 TO 8:B$=B$+MID$(M$(I), 

X+1,1):NEXT I 

450 IF I NSTR (B$. A$) THEN BEEP: GOTO 200 

460 XX= (X¥3) *3+l : YY= (YY3) *3 : B$=" " 

470 FOR I=YY TO YY+2:FOR J=XX TO XX+2 

480 B$=B$+MID$(M$(I).J.l) 

490 NEXT J: NEXT I 

500 IF I NSTR (B$. A$) THEN BEEP: GOTO 200 

510MID$(M$(Y),X+1.1)=A$ 

520 PSET(62+X*16, 53+Y*16), 15:PRINT#1, A$; 

530 P=P-1 

540 IF P>0 GOTO 200 

600 ' iyt-f 

610 PUT SPRITE 0. (0, 220) : COLOR 15,0 

620 PLAY"S0M3000T120O4L8EEFGGFEDCCDEE8. D 

16D4" 

630 PLAY"EEFGGFEDCCDED8. C16C4" 

640 PLAY"DDECDE16F16ECDE16F16EDCD03G04E 

650 PLAY"EEFGGFEDCCDED8. C16C4" 

660 GOTO 620 

1000 ' i\' VW il 

1010 FOR 1=0 TO 9 STEP 3 

1020 LINE(55.47+I*16)-(201. 49+1*16), 0.BF 

1030 LINE(55+I*16,47)-(57+I*16.193).0,BF 

1040 NEXT I 

1050 FOR 1=1 TO 8 

1060 LINE(56,48+I*16)-(200. 48+1*16). 

1070 LINE(56+I*16. 48)-(56+I*16. 192). 

1080 NEXT I 

1090 RETURN 

2000 ' t-9 W & UW 

2010 FOR 1=0 TO 8:M$(I)="" 

2020 FOR J=l TO 9 

2030 M$=MID$(Y$, I*9+J. 1) 

2040 IF VAL(M$) THEN PSET(46+J*16. 53+1*1 

6). 15:PRINT#1. CHR$(48+VAL(M$)) ; 

2050 M$(I)=M$(I)+M$ 

2060 NEXT J 

2070 N$(I)=M$(I) 

2080 NEXT I 

2090 RETURN 

3000 • iV9'4 tW 

3010 FOR 1=0 TO 8:M(I)=I+1:NEXT I 

3020 FOR 1=7 TO STEP-1:SWAP M(RND(1)*( 

I+1)).M(I):NEXT I 

3030 RESTORE 4000: READ Y$ 

3040 FOR 1=1 TO 81:MID$(Y$. 1. 1)=CHR$(48+ 

M(VAL(MID$(Y$. I.1))-1)):NEXT 1 

3050 FOR 1=0 TO 8: FOR J=0 TO 8:L$(J. I)=M 

ID$(Y$. I*9+J+1.1):NEXT J: NEXT I 

3060 FOR K=l TO 10 

3070 ON RND(1)*4+1 GOSUB 3200.3300.3400. 

3500 

3080 NEXT K 

3090 Y$="":FOR 1=0 TO 8: FOR J=0 TO 8:Y$= 

Y$+L$(J, I):NEXT J: NEXT I 

3100 P=0 



3110 FOR 1=1 TO 81: IF RND(1)*10>L THEN M 

ID$(Y$. I)="0":P=P+1 

3120 NEXT I 

3130 RETURN 

3200 X=RND(1)*3:Y=RND(1)*3 

3210 FOR 1=0 TO 8:FOR J=0 TO 2:SWAP L$(X 

*3+J. I).L$(Y*3+J. I):NEXT J:NEXT I 

3220 RETURN 

3300 X=RND(1)*3:Y=RND(1)*3 

3310 FOR 1=0 TO 8:FOR J=0 TO 2:SWAP L$(I 

,Y*3+J).L$(I.X*3+J):NEXT J:NEXT I 

3320 RETURN 

3400 X=RND(1)*3:Y=RND(1)*3:Z=RND(1)*3 

3410 FOR 1=0 TO 8:SWAP L$(Z*3+X. I).L$(Z* 

3+Y. 1):NEXT I 

3420 RETURN 

3500 X=RND(1)*3:Y=RND(1)*3:Z=RND(1)*3 

3510 FOR 1=0 TO 8:SWAP L$(I. Z*3+X). L$(I. 

Z*3+Y):NEXT I 

3520 RETURN 

4000 ' A' 'jpj #y? -9 

4010 DATA"765349812894521637231768495146 

9573285821347699736821543278159466594732 

81418296573' 



XT 9 



hl 0000~9999ST*<7)(Bc5IJ%-#T. ®&i? 
f~fr> X & I* fctftff (t£\ ^#(Z igf&f 3 t>" 
^x-y^-f-So T^yP^'^A^-ZSO^E- K 
T^tT-S^ 105M5#(5£X:fT, 0456, 
3075, 6405C7) 3 -XrfgZ. £ It t # iHTt'o 



100 DEFINT A-Z 

110 N=5:DIM X$(N).H(N).B(N) 

120 FOR 1=1 TO N:READ X$(I).H(I).B(I):NE 

XT I 

130 " My 

140 FOR 1=0 TO 9 

150 FOR J=0TO 9: IF J=I GOTO 220 

160 FOR K=0 TO 9: IF K=I OR K=J GOTO 210 

170 FOR L=0 TO 9: IF L=I OR L=J OR L=K GO 

TO 200 

180 X$=CHR$(48+I)+CHR$(48+J)+CHR$(48+K)+ 

CHR$(48+L) 

190 GOSUB 250: IF X$<>"" THEN PRINT X$ 

200 NEXT L 

210 NEXT K 

220 NEXT J 

230 NEXT I: END 

240 ' H&B i/K * 

250 FOR C=l TO N 

260 H=0:B=0 

270 FOR M=l TO 4 

280 P=INSTR(X$(C).MID$(X$,M. 1)) 

290 IF P>0 THEN IF P=M THEN H=H+1 ELSE B 

=B+1 

300 NEXT M 



310 IF HOH(C) OR BOB(C) THEN C=N:X$="" 


320 NEXT C: RETURN 


330 • m 


r-9 




340 DATA 


"1234" 


.0.1 


350 DATA 


"5167" 


.0.2 


360 DATA 


"8519" 


.0.1 


370 DATA 


"7620" 


.0.2 


380 DATA 


"6053" 
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100 DEFINT A-Z 
110 C0=ASC("D"):C1=ASC("#") 
120 DIM D(8):Q=0 

130 FOR 1=0 TO 8:D(I)=0:READ A:Q=Q+Q+A:N 
EXT I 

140 FOR 1=0 TO 2:F0R J=0 TO 2:F0R K=0 TO 
2 
150 READ D 
160 READ A:D=D+D+A 
170 READ A:D=D+D+A 
180 D(I*3+K)=D(I*3+K)*8+D 
190 NEXT K:NEXT J: NEXT I 
200 ' Ml 

210 FOR X=0 TO &B111111111 
220 R=X:P=Q 
230 FOR 1=0 TO 8 

240 IF (R MOD 2)=1 THEN P=P XOR D(8-I) 
250 R=RY2 
260 NEXT I 

270 IF P=0 THEN GOSUB 310:X=&B111111111 
280 NEXT X 
290 END 

300 ' vJ' xJ UW 
310 R=X 

320 FOR 1=0 TO 8 
330 P=P+P+(R MOD 2):R=RY2 
340 NEXT I 
350 FOR 1=0 TO 2 



112 



PUZ 




RADISE 



360 FOR J=0 TO 2 


370 PRINT CHR$(C0+(C1-C0)*(P MOD 2));:P= 


P¥2 




380 NEXT J: PR I NT 


390 NEXT LPRINT "v/ iJ:' " ;CHR$(C1) ;"' ) 


(•:□? iv/fy" 




400 RETURN 




410 ■ ur \ 




420 DATA 0,1,0 




430 DATA 0.0,0 




440 DATA 0, 0, 




450 ' h'Ji'J f -9 




460 DATA 1.1,0. 


1.1.1, 0.1.1 


470 DATA 1. 1. 0. 


0.0.0. 0.1.1 


480 DATA 0. 0. 0. 


0.0.0. 0.0.0 


490 ' 




500 DATA 1, 0, 0, 


0.1.0. 0.0.1 


510 DATA 1,0,0. 


1.1.1. 0.0.1 


520 DATA 1,0,0. 


0.1.0. 0.0.1 


530 " 




540 DATA 0, 0. 0. 


0.0.0. 0.0.0 


550 DATA 1.1.0. 


0.0.0. 0.1.1 


560 DATA 1. 1, 0, 


1.1.1. 0.1.1 
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100 DEFINT A-Z 

110 R=2:Q=200:L=6*6*2-1 

120 DIM T(9),S(L).J(R),D$(1) 

130 D$(0)="-)I":D$(1)="H'" 

140 FOR 1=0 TO 9:T(I)=2'I:NEXT 

150 FOR 1=0 TO L:S(I)=0:NEXT 

160 J=0:U=0 

170 • WJ 

180 GOSUB 200: END 

190 • fW My 

200 J(R)=J:R=R-1 

210 FOR J=J(R+1)+1 TO L-R 

220 S (J) =1: GOSUB 300 

230 IF N=Q THEN GOSUB 540 

240 IF N>Q THEN IF R>0 THEN GOSUB 

250 S(J)=0 

260 NEXT 

270 R=R+1:J=J(R) 

280 RETURN 

290 ' x / i\lf : J fill 

300 N=0 

310 D=J MOD 2:A=J¥2 

320 V=A MOD 6:H=A¥6 



330 IF D=0 AND V=5 THEN RETURN 

340 IF D=l AND H=5 THEN RETURN 

350 " %-\1 *V*i* 

360 FOR K0=0 TO 5 

370 FOR K1=K0+1 TO 6 

380 FOR K2=K1+1 TO 7 

390 FOR K3=K2+1 TO 8 

400 FOR K4=K3+1 TO 9 

410 X=T(K4)+T(K3)+T(K2)+T(K1)+T(K0) 

420 C=l:GOSUB 460:N=N+C 

430 NEXT: NEXT: NEXT: NEXT: NEXT 

440 RETURN 

450 ' v/ *-h nm? 

460 H=0:V=0 
470 FOR 1=0 TO 9 
480 D=X MOD 2:X=X¥2 
490 IF S((H*6+V)*2+D)>0 THEN C=0:I=9 
500 H=H+D:V=V+1-D 
510 NEXT 
520 RETURN 

530 " x / A'!/,? UW 
540 U=U+1:PRINT U;":" 
550 FOR 1=0 TO L 
560 IF S(I)=0 GOTO 600 
570 D=I MOD 2:A=I¥2 
580 V=A MOD 6:H=A¥6 

590 PRINT USING" (#8#) I 8";H.".".V.D 
$(D) 

600 NEXT 

610 ' INPUrY/77t";A$:IF A$=T OR A$="y" 
THEN END 
620 RETURN 
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